home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / programs / lotus / lotus001.dsk / MACROS / ORGCAL.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  70.5 KB  |  4,264 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     ╡░╢▐┼▓╗▐░é╠├▐░└é≡ĵéΦì₧é±é╛╢┌▌└▐░é╠ì∞ɼ<*-><**>
  28.     
  29.     
  30.     
  31.     
  32.     776745247
  33.     87
  34.     738366549
  35.     1024
  36.     19
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [l1]
  63.     0
  64. [edoc]
  65. <:#452,9071>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  66.  
  67. <:#226,9071>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  68.  
  69. <:#452,9071>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  70.  
  71. <:#452,9071>Define PostMessage(hwnd, message, wparam, lparao) dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4)
  72.  
  73. <:s><:#226,9071>
  74.  
  75. <:s><:#226,9071>
  76.  
  77. <:#226,9071><:><:><:><:>Define EnableHardwareInput() dllcall("user,EnableHardwareInput,AA", %1)
  78.  
  79. <:#226,9071>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  80.  
  81. <:#226,9071>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  82.  
  83. <:#226,9071>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
  84.  
  85. @Outline2@<:#452,9071>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)
  86.  
  87. @Outline2@<:#226,9071>Define GetWindowText() DllCall("user,GetWindowText,HHCH", %1, %2, 50)
  88.  
  89. <:#226,9071>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  90.  
  91. <:#226,9071>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  92.  
  93. <:#226,9071>define WM_GETTEXT        0x000D
  94.  
  95. <:#226,9071>define SC_RESTORE      0xF120
  96.  
  97. <:#226,9071>define WM_SYSCOMMAND       0x0112
  98.  
  99. <:#226,9071>Define WM_SETFONT 0x30
  100.  
  101. <:#226,9071>Define WM_COMMAND 0x111
  102.  
  103. <:#226,9071>Define WM_QUIT 0x0012
  104.  
  105. <:s><:#226,9071>
  106.  
  107. <:#284,9071>'define calstyle "<:f240,BArial,255,0,0>_orgcal.sty<:f>"
  108.  
  109. <:s><:#226,9071>
  110.  
  111. <:#226,9071>declare startcal(p1, p2)
  112.  
  113. <:#226,9071>declare getorgdata(orgsection, orgsection2)
  114.  
  115. <:#226,9071>declare readorgdates(p1, p2, p3, p4, p5)
  116.  
  117. <:#226,9071>declare datenum2datestr(orgmonth)
  118.  
  119. <:#226,9071>declare autocal(year, month)
  120.  
  121. <:#226,9071>declare datestr2datenum(orgmonth)
  122.  
  123. <:#226,9071>declare findday(orgday)
  124.  
  125. <:#226,9071>declare findday_ann(orgday)
  126.  
  127. <:#226,9071>declare readorganniversary(dates, text, month)
  128.  
  129. <:#226,9071>declare createdlgfont()
  130.  
  131. <:#226,9071>declare setfont(hdlg, id)
  132.  
  133. <:#226,9071>declare deletefont()
  134.  
  135. <:#226,9071>declare delfile(filename)
  136.  
  137. <:#226,9071>declare FindAndReplace(String, Findwhat, Replacewith)
  138.  
  139. <:s><:#226,9071>
  140.  
  141. <:#226,9071>' Macro by Charlie Pappas, Calendar by Powell Smith
  142.  
  143. <:s><:#226,9071>
  144.  
  145. @Function@<:#226,9071>function orgcal()
  146.  
  147. <:#226,9071>if GetOpenFileCount() = 1
  148.  
  149. <:#226,9071>    dim tmp(1)
  150.  
  151. <:#226,9071>    GetOpenFileNames(&tmp)
  152.  
  153. <:#226,9071>    if tmp(1) = "(ÉVïKò╢Åæ)" and fileChanged(0, 0) = 0
  154.  
  155. <:#226,9071>        AppMaximize("(ÉVïKò╢Åæ)")
  156.  
  157. <:#226,9071>    endif
  158.  
  159. <:#226,9071>endif
  160.  
  161. <:#226,9071>ignorekeyboard(1)
  162.  
  163. <+C><:#284,9071>'stylesheet = "<:f240,BArial,255,0,0>_<:f><:f240,BArial,255,0,0>C<:f><:f240,BArial,255,0,0>ALORG.STY<:f>"
  164.  
  165. <+C><:#284,9071>stylesheet = "<:f240,BArial,255,0,0>J<:f><:f240,BArial,255,0,0>C<:f><:f240,BArial,255,0,0>ALORG.STY<:f>"
  166.  
  167. <:#226,9071>if getopenfilecount() <;> 0
  168.  
  169. <:#284,9071>    if (getdocinfo$(ddstylesheet) <<<;> stylesheet) <:f240,BArial,0,0,128>Or (GetDocInfo$(dduser8) = 1)<:f>
  170.  
  171. <:#226,9071>        if New(stylesheet, WithContents, 1024) <<<;> 1
  172.  
  173. <:#260,9071>            message("<:f240,1élér û╛Æ⌐,255,0,0>╜└▓┘╝░─é¬î⌐é┬é⌐éΦé▄é╣é±<:f> {stylesheet}.", "▒╨╠▀█")
  174.  
  175. <:s><:#226,9071>            return 0
  176.  
  177. <:#226,9071>        endif
  178.  
  179. <:s><:#226,9071>        return 0
  180.  
  181. <:#226,9071>    endif
  182.  
  183. <:s><:#226,9071>else
  184.  
  185. <:#226,9071>    makenew:
  186.  
  187. <:#226,9071>    if New(stylesheet, WithContents, 1024) <<<;> 1
  188.  
  189. <:#322,9071><:f240,BArial,255,0,0>        message("<:f><:f240,1élér û╛Æ⌐,255,0,0>╜└▓┘╝░─é¬î⌐é┬é⌐éΦé▄é╣é±<:f><:f240,BArial,255,0,0> {stylesheet}.", 
  190. <:f240,1û╛Æ⌐,255,0,0>"▒╨╠▀█"<:f240,BArial,255,0,0>)<:f>
  191.  
  192. <:s><:#226,9071>        return 0
  193.  
  194. <:#226,9071>    endif
  195.  
  196. <:s><:#226,9071>    return 0
  197.  
  198. <:#226,9071>endif
  199.  
  200. <:#226,9071>
  201.  
  202. <:#226,9071>defstr year, month;
  203.  
  204. <:#226,9071>AllocGlobalVar("TitleName",1)
  205.  
  206. <:#226,9071>'goto debug
  207.  
  208. <:#226,9071>shortdate = GetProfileString$("intl","sShortDate","win.ini");
  209.  
  210. <:#226,9071>if shortdate <<<;> "yy/MM/dd"
  211.  
  212. <:#226,9071>    message("║▌─█░┘╩▀╚┘é╠èeìææ╬ë₧é┼üAô·òté╠ÆZéóî`Ä«é≡ô·û{ùpé╠Åëè·Å≤æ╘é╔é╡é─é¡é╛é│éó")
  213.  
  214. <:#226,9071>    FreeGlobalVar("TitleName")
  215.  
  216. <:#226,9071>    return 0
  217.  
  218. <:#226,9071>endif
  219.  
  220. <:#226,9071>
  221.  
  222. <:#226,9071>if autocal(&year, &month) <<<;> 1
  223.  
  224. <:#226,9071>    FreeGlobalVar("TitleName")
  225.  
  226. <:s><:#226,9071>    return 0
  227.  
  228. <:#226,9071>endif
  229.  
  230. <:s><:#226,9071>
  231.  
  232. <:#226,9071>docinfofields("", "", "", "", "", "", "", 1)
  233.  
  234. <:#226,9071>defstr startrow, startcol, endrow, endcol;
  235.  
  236. <:#226,9071>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)
  237.  
  238. <:#226,9071>if startrow = 10
  239.  
  240. <:#226,9071>    type("<[>down]<[>down]<[>shiftdown]")
  241.  
  242. <:#226,9071>    answermsgbox(yes)
  243.  
  244. <:#226,9071>    DeleteColumnRow(row)
  245.  
  246. <:#226,9071>endif
  247.  
  248. <:#226,9071>orgsection = GetProfileString$("OrgCal", "Calendar", "amipro2.ini")
  249.  
  250. <:#226,9071>if orgsection = ""
  251.  
  252. <:#284,9071>    'orgsection =     "<:f240,BArial,255,0,0>Calendar<:f>"
  253.  
  254. <:#260,9071>    orgsection =     "<:f240,1élér û╛Æ⌐,255,0,0>└▐▓▒╪░<:f>"
  255.  
  256. <:#260,9071>    WriteProfileString("OrgCal", "Calendar", "<:f240,1élér û╛Æ⌐,255,0,0>└▐▓▒╪░<:f>", "amipro2.ini")
  257.  
  258. <:#226,9071>endif
  259.  
  260. <:#284,9071>orgsection2 = GetProfileString$("OrgCal", "<:f240,BArial,255,0,0>Anniversary<:f>", "amipro2.ini")
  261.  
  262. <:#226,9071>if orgsection2 = ""
  263.  
  264. <:#260,9071>    orgsection2 = "<:f240,1élér û╛Æ⌐,255,0,0>ïLöOô·<:f>"
  265.  
  266. <:#260,9071>    WriteProfileString("OrgCal", "Anniversary", "<:f240,1élér û╛Æ⌐,255,0,0>ïLöOô·<:f>", "amipro2.ini")
  267.  
  268. <:#226,9071>endif
  269.  
  270. <:#226,9071>windir = getwindowsdirectory$()
  271.  
  272. <:#226,9071>
  273.  
  274. <:#226,9071>type("<[>ctrlhome]<[>down]<[>down]")
  275.  
  276. <:#260,9071>statusbarmsg("<:f240,1élér û╛Æ⌐,255,0,0>╡░╢▐┼▓╗▐░é╠├▐░└é╠ĵô╛Æå<:f><:f240,1élér û╛Æ⌐,255,0,0>...<:f>")
  277.  
  278. <:#226,9071>if getorgdata(orgsection, orgsection2) <<<;> 1
  279.  
  280. <:#226,9071>    statusbarmsg("")
  281.  
  282. <:#226,9071>    hwnd = findwindow("TZ_PORG", 0)
  283.  
  284. <:#226,9071>    showwindow(hwnd, 1)
  285.  
  286.     FreeGlobalVar("TitleName")
  287.  
  288.     return 0
  289.  
  290. <:#226,9071>endif
  291.  
  292. <:#226,9071>
  293.  
  294. <:#226,9071>statusbarmsg("")
  295.  
  296. <:#226,9071>pause(001)
  297.  
  298. <:#226,9071>debug:
  299.  
  300. <:#226,9071>dim dates(1)<:W+0>
  301.  
  302. <:#226,9071>dim dates_ann(1)
  303.  
  304. <:#226,9071>dim text(1)
  305.  
  306. <:#226,9071>dim text_ann(1)
  307.  
  308. <:#226,9071>dim time(1)
  309.  
  310. <:#226,9071>monthnum = datestr2datenum(month)
  311.  
  312. <:#260,9071>statusbarmsg("<:f240,1élér û╛Æ⌐,255,0,0>╡░╢▐┼▓╗▐░é╠├▐░└é╠ô╟é▌ì₧é▌Æå...<:f>")
  313.  
  314. <:#226,9071>numrecs = readorgdates(&dates, &text, &time, year, monthnum)
  315.  
  316. <:#226,9071>statusbarmsg("<:U+@><:G+0><:W+0><-)><:W-0><:G-0><:U-@>")
  317.  
  318. <:#226,9071>if numrecs = 0
  319.  
  320. <:#284,9071><:f240,BArial,0,0,128>    Goto Anniver    <:f><:f240,BArial,0,0,128>    ' pmm 5/24/93
  321.  
  322. <:#226,9071>endif
  323.  
  324. <:#226,9071>curday = 1
  325.  
  326. <:#226,9071>findday(curday)
  327.  
  328. <:#226,9071>for i = 1 to numrecs
  329.  
  330. <:#226,9071>    orgdate = dates(i)
  331.  
  332. <:#226,9071>    if orgdate <<<;> curday
  333.  
  334. <:#226,9071>        type("<[>tab]<[>up]")
  335.  
  336. <:#226,9071>        curday = findday(orgdate)
  337.  
  338. <:#226,9071>        if curday = 0
  339.  
  340. <:#226,9071>            FreeGlobalVar("TitleName")
  341.  
  342. <:#226,9071>            return 0
  343.  
  344. <:#226,9071>        endif
  345.  
  346. <:#226,9071>    endif
  347.  
  348. <:#226,9071>    timex = time(i)
  349.  
  350. <:#226,9071>    txt = text(i)
  351.  
  352. <:#226,9071>    'setstyle("Entry")
  353.  
  354. <:#226,9071>        setstyle("ôⁿù═")
  355.  
  356. <:#226,9071>    bold()
  357.  
  358. <:#226,9071>    type("{timex}")
  359.  
  360. <:#226,9071>    bold()
  361.  
  362. <:#226,9071>    'untabify
  363.  
  364. <:#226,9071>    if KInstr(1, txt, "    ") <;> 0
  365.  
  366. <:#226,9071>        findandreplace(&txt, "    ", "   ")
  367.  
  368. <:#226,9071>    endif
  369.  
  370. <:#226,9071>    type(" {txt}<[>enter]")
  371.  
  372. <:#226,9071>next
  373.  
  374. <:#226,9071>
  375.  
  376. <:#284,9071><:f240,BArial,0,0,128>Anniver:<:f>
  377.  
  378. <:#226,9071>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1
  379.  
  380. <:#226,9071>    goto done
  381.  
  382. <:#226,9071>endif
  383.  
  384. <:#226,9071>
  385.  
  386. <:#226,9071>' Now do the anniversary dates
  387.  
  388. <:#226,9071>type("<[>ctrlhome]<[>down]<[>down]")
  389.  
  390. <:#260,9071>statusbarmsg("<:f240,1élér û╛Æ⌐,255,0,0>╡░╢▐┼▓╗▐░é╠ïLöOô·é╠├▐░└é≡ô╟é▌ì₧é▌Æå<:f><:f240,1élér û╛Æ⌐,255,0,0>...<:f>")
  391.  
  392. <:#226,9071>
  393.  
  394. <:#226,9071>numrecs = readorganniversary(&dates_ann, &text_ann, monthnum)
  395.  
  396. <:#226,9071>statusbarmsg("")
  397.  
  398. <:#226,9071>if numrecs = 0
  399.  
  400. <:#226,9071>    goto done
  401.  
  402. <:#226,9071>endif
  403.  
  404. <:#226,9071>curday = 1
  405.  
  406. <:#226,9071>findday_ann(curday)
  407.  
  408. <:#226,9071>for i = 1 to numrecs
  409.  
  410. <:#226,9071>    orgdate = dates_ann(i)
  411.  
  412. <:#226,9071>    if orgdate <<<;> curday
  413.  
  414. <:#226,9071>        type("<[>tab]<[>up]")
  415.  
  416. <:#226,9071>        curday = findday_ann(orgdate)
  417.  
  418. <:#226,9071>        if curday = 0
  419.  
  420.             FreeGlobalVar("TitleName")
  421.  
  422.             return 0
  423.  
  424. <:#226,9071>        endif
  425.  
  426. <:#226,9071>    endif
  427.  
  428. <:#226,9071>    txt = text_ann(i)
  429.  
  430. <:#226,9071>    'untabify
  431.  
  432. <:#226,9071>    if KInstr(1, txt, "    ") <;> 0
  433.  
  434. <:#226,9071>        findandreplace(&txt, "    ", "   ")
  435.  
  436. <:#226,9071>    endif
  437.  
  438. <:#226,9071>    type("{txt}<[>enter]")
  439.  
  440. <:#226,9071>next
  441.  
  442. <:#226,9071>
  443.  
  444. <:#226,9071>done:
  445.  
  446. <:#226,9071>defstr fh;
  447.  
  448. <:#226,9071>delfile(GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini"))
  449.  
  450. <:#226,9071>delfile(GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini"))
  451.  
  452. <:#226,9071>pause(001)
  453.  
  454. <:#322,9071>message("<:f240,1élér û╛Æ⌐,255,0,0>╡░╢▐┼▓╗▐░é╠├▐░└é≡Ägé┴é╜╢┌▌└▐░é¬ì∞ɼé│éΩé▄é╡é╜üI<:f><:f240,BArial,255,0,0>", "<:f240,1û╛Æ⌐,255,0,0>▒╨╠▀█<:f>")
  455.  
  456. <:#226,9071>FreeGlobalVar("TitleName")
  457.  
  458. <:#226,9071>end function
  459.  
  460. <:#226,9071>
  461.  
  462. <:#226,9071>
  463.  
  464. @Function@<:#226,9071>function findday(orgday)
  465.  
  466. <:#226,9071>ignorekeyboard(1)
  467.  
  468. <:#226,9071>while(1)
  469.  
  470. <:#226,9071>    curday = curword$()
  471.  
  472. <:#226,9071>    if curday = orgday
  473.  
  474. <:#226,9071>        type("<[>down]")
  475.  
  476. <:#226,9071>        return curday
  477.  
  478. <:#226,9071>    endif
  479.  
  480. <:#226,9071>    type("<[>tab]")
  481.  
  482. <:#226,9071>    if getmode() <<<;> 129
  483.  
  484. <:#303,9071>        message("<:f240,1élér û╛Æ⌐,255,0,0>æ▒ìsé┼é½é▄é╣é±üB<:f>", "<:f240,1û╛Æ⌐,255,0,0>▒╨╠▀█<:f>")
  485.  
  486. <:#226,9071>        return 0
  487.  
  488. <:#226,9071>    endif
  489.  
  490. <:#226,9071>wend
  491.  
  492. <:#226,9071>end function
  493.  
  494. <:#226,9071>
  495.  
  496. <:#226,9071>
  497.  
  498. @Function@<:#226,9071>function findday_ann(orgday)
  499.  
  500. <:#226,9071>ignorekeyboard(1)
  501.  
  502. <:#226,9071>while(1)
  503.  
  504. <:#226,9071>    curday = curword$()
  505.  
  506. <:#226,9071>    if curday = orgday
  507.  
  508. <:#226,9071>        type("<[>left]")
  509.  
  510. <:#226,9071>        return curday
  511.  
  512. <:#226,9071>    endif
  513.  
  514. <:#226,9071>    type("<[>tab]")
  515.  
  516. <:#226,9071>    if getmode() <<<;> 129
  517.  
  518. <:#303,9071>        message("<:f240,1élér û╛Æ⌐,255,0,0>æ▒ìsé┼é½é▄é╣é±üB<:f>", "<:f240,1û╛Æ⌐,255,0,0>▒╨╠▀█<:f>")
  519.  
  520. <:#226,9071>        return 0
  521.  
  522. <:#226,9071>    endif
  523.  
  524. <:#226,9071>wend
  525.  
  526. <:#226,9071>end function
  527.  
  528. <:#226,9071>
  529.  
  530. <:#226,9071>
  531.  
  532. @Function@<:#226,9071>function startcal(year, month)
  533.  
  534. <:#226,9071>ignorekeyboard(1)
  535.  
  536. <:#226,9071>defstr startrow, startcol, endrow, endcol;
  537.  
  538. <:#226,9071>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)
  539.  
  540. <:#226,9071>if startrow = 0
  541.  
  542. <:#226,9071>    return 0
  543.  
  544. <:#226,9071>endif
  545.  
  546. <:#226,9071>type("<[>ctrlhome]");
  547.  
  548. <:#226,9071>*year = curword$()
  549.  
  550. <:#226,9071>type("<[>tab]")
  551.  
  552. <:#226,9071>*month = curword$()
  553.  
  554. <:#226,9071>type("<[>down]<[>down]<[>home]<[>home]<[>tab]")
  555.  
  556. <:#226,9071>return 1
  557.  
  558. <:#226,9071>end function
  559.  
  560. <:#226,9071>
  561.  
  562. @Function@<:#226,9071>function getorgdata(orgsection, orgsection2)
  563.  
  564. <:#226,9071>ignorekeyboard(1)
  565.  
  566. <:#226,9071>onerror endit
  567.  
  568. <:#226,9071>oncancel endit
  569.  
  570. <:#226,9071>buffsize=80
  571.  
  572. <:#226,9071>defstr txt;
  573.  
  574. <:#226,9071>hwnd = findwindow("TZ_PORG", 0)
  575.  
  576. <:#226,9071>if isiconic(hwnd)
  577.  
  578. <:#226,9071>    appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)
  579.  
  580. <+@><:#226,9071>endif
  581.  
  582. <:#226,9071>showwindow(hwnd, 0)
  583.  
  584. <:#226,9071>defstr titlename
  585.  
  586. <:#226,9071>GetWindowText(hwnd,&titlename);
  587.  
  588. <:#226,9071>titlename = strfield$(titlename,1,"<[><[>");
  589.  
  590. <:#226,9071>titlename = strfield$(titlename,1,"-");
  591.  
  592. <:#226,9071>titlename = KMID$(titlename,1,(KLEN(titlename) - 1))
  593.  
  594. <:#226,9071>'message("{titlename}")
  595.  
  596. <:#226,9071>temp = getwindowsdirectory$()
  597.  
  598. <:#226,9071>if right$(temp, 1) <<<;> "\"
  599.  
  600. <:#226,9071>    temp = strcat$(temp, "\")
  601.  
  602. <:#226,9071>endif
  603.  
  604. <:#226,9071>again:
  605.  
  606. <:#226,9071>uname = right$(now(), 7)
  607.  
  608. <:#226,9071>filename = "{temp}~{uname}.tmp"
  609.  
  610. <:#226,9071>ClipboardWrite(filename, 0)
  611.  
  612. <:#284,9071>'activateapp("<:f240,BArial,255,0,0>Lotus Organizer<:f>")
  613.  
  614. <:#226,9071>activateapp(titlename)
  615.  
  616. <:#226,9071>SetGlobalVar("TitleName",titlename)
  617.  
  618. <:#226,9071>enablehardwareinput(0)
  619.  
  620. <:#226,9071>wparam = 0x03F2
  621.  
  622. <:#226,9071>lparao = 0x00000000
  623.  
  624. <:#226,9071>PostMessage(hwnd, wm_command, wparam, lparao)
  625.  
  626. <:#226,9071>pause(001)
  627.  
  628. <:#226,9071>
  629.  
  630. <:#226,9071>hdlg = getactivewindow()
  631.  
  632. <:S+-1><:#284,9071>sendkeys("<:f240,BArial,255,0,0><[>ctrlhome]<:f>")    ' go to beginning of organize and do File/Export
  633.  
  634. <:S+-1><:#226,9071>pause(002)
  635.  
  636. <:S+-1><:#226,9071>for i = 1 to 20
  637.  
  638. <:#226,9071>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)
  639.  
  640. <:#226,9071>    if Instr(3, txt, orgsection) <;> 1
  641.  
  642. <:#226,9071>        goto rabbit
  643.  
  644. <:#226,9071>    endif
  645.  
  646. <:#284,9071>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' go to next org item in combo box
  647.  
  648. <:#226,9071>next
  649.  
  650. <:#226,9071>
  651.  
  652. <:#226,9071>statusbarmsg("")
  653.  
  654. <:#226,9071>enablehardwareinput(1)
  655.  
  656. <:#226,9071>return 0
  657.  
  658. <:#226,9071>rabbit:
  659.  
  660. <:#226,9071>
  661.  
  662. <:#226,9071>WriteProfileString("OrgCal", "CalendarFile", filename, "amipro2.ini");
  663.  
  664. <:#226,9071>
  665.  
  666. <:#284,9071>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")
  667.  
  668. <:#284,9071>sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]w<:f><:f240,BArial,255,0,0><[>altf]<:f>")
  669.  
  670. <:#226,9071>pause(001)
  671.  
  672. <:#226,9071>if GetDlgItemText(getactivewindow(), 307) <<<;> 1
  673.  
  674. <:#226,9071>    sendkeys(" ") ' send a space to check the box
  675.  
  676. <:#226,9071>endif
  677.  
  678. <:#510,9071>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option
  679.  
  680. <:#284,9071>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country
  681.  
  682. <:#510,9071>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]<[>CtrlV]<:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields
  683.  
  684. <:#226,9071>
  685.  
  686. <:#226,9071>hdlg = getactivewindow()
  687.  
  688. <:#226,9071>defstr windowtext;
  689.  
  690. <:#226,9071>pause(002)
  691.  
  692. <:#226,9071>while(1)
  693.  
  694. <:#226,9071>    getwindowtext(getactivewindow(), &windowtext)
  695.  
  696. <:#510,9071>    'if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' check on export dialog box title bar until it is gone
  697.  
  698. <:#226,9071>    titlename = GetGlobalVar$("TitleName")
  699.  
  700. <:#226,9071>    if windowtext = titlename
  701.  
  702. <:#284,9071>        sendkeys("<:f240,BArial,255,0,0><[><:f240,BArial,255,0,0>esc<:f><:f240,BArial,255,0,0>]<:f>") ' clear the next message box
  703.  
  704. <:#226,9071>        break
  705.  
  706. <:#226,9071>    endif
  707.  
  708. <:#226,9071>    pause(010)
  709.  
  710. <:#284,9071>         if windowtext <<<;> "Ä└ìsÆå"'"<:f240,BArial,255,0,0>Status<:f>"
  711.  
  712. <:#226,9071>        break
  713.  
  714. <:#226,9071>    endif
  715.  
  716. <:#226,9071>wend
  717.  
  718. <:#226,9071>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1
  719.  
  720. <:#226,9071>    goto done
  721.  
  722. <:#226,9071>endif
  723.  
  724. <:#226,9071>
  725.  
  726. <:#226,9071>again2:
  727.  
  728. <:#226,9071>uname = right$(now(), 7)
  729.  
  730. <:#226,9071>filename = "{temp}~{uname}.tmp"
  731.  
  732. <:#226,9071>WriteProfileString("OrgCal", "AnniversaryFile", filename, "amipro2.ini");
  733.  
  734. <:#226,9071>ClipboardWrite(filename, 0)
  735.  
  736. <:#226,9071>PostMessage(hwnd, wm_command, wparam, lparao)
  737.  
  738. <:#226,9071>pause(001)
  739.  
  740. <:#226,9071>hdlg = getactivewindow()
  741.  
  742. <:S+-1><:#284,9071>sendkeys("<:f240,BArial,255,0,0><[>ctrlhome]<:f>")
  743.  
  744. <:S+-1><:#226,9071>for i = 1 to 20
  745.  
  746. <:#226,9071>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)
  747.  
  748. <:#226,9071>    'if Instr(3, txt, orgsection2) <;> 1
  749.  
  750. <:#226,9071>    if KInstr(1, txt, orgsection2) <;> 1
  751.  
  752. <:#226,9071>        goto rabbit2
  753.  
  754. <:#226,9071>    endif
  755.  
  756. <:#284,9071>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' see above
  757.  
  758. <:#226,9071>next
  759.  
  760. <:#226,9071>enablehardwareinput(1)
  761.  
  762. <:#226,9071>return 0
  763.  
  764. <:#226,9071>rabbit2:
  765.  
  766. <:#284,9071>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")
  767.  
  768. <:#284,9071>sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]w<:f><:f240,BArial,255,0,0><[>altf]<:f>")
  769.  
  770. <:#226,9071>pause(001)
  771.  
  772. <:#226,9071>if GetDlgItemText(getactivewindow(), 307) <<<;> 1
  773.  
  774. <:#226,9071>    sendkeys(" ") ' send a space to check the box
  775.  
  776. <:#226,9071>endif
  777.  
  778. <:#510,9071>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option
  779.  
  780. <:#284,9071>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country
  781.  
  782. <:#510,9071>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]<[>CtrlV]<:f><:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields
  783.  
  784. <:#226,9071>hdlg = getactivewindow()
  785.  
  786. <:#226,9071>pause(002)
  787.  
  788. <:#226,9071>while(1)
  789.  
  790. <:#226,9071>    getwindowtext(getactivewindow(), &windowtext) ;
  791.  
  792. <:#284,9071>    'if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' see above
  793.  
  794. <:#226,9071>    titlename = GetGlobalVar$("TitleName")
  795.  
  796. <:#226,9071>    if windowtext = titlename ' see above
  797.  
  798. <:#226,9071>
  799.  
  800. <:#284,9071>        sendkeys("<:f240,BArial,255,0,0><[>esc<:f><:f240,BArial,255,0,0>]<:f>") ' see above
  801.  
  802. <:#226,9071>        break
  803.  
  804. <:#226,9071>    endif
  805.  
  806. <:#226,9071>    pause(010)
  807.  
  808. <:#284,9071>    if windowtext <<<;> "Ä└ìsÆå"'"<:f240,BArial,255,0,0>Status<:f>"
  809.  
  810. <:#226,9071>        break
  811.  
  812. <:#226,9071>    endif
  813.  
  814. <:#226,9071>wend
  815.  
  816. <:#226,9071>done:
  817.  
  818. <:#284,9071>appminimize("<:f240,BArial,255,0,0>Lotus Organizer<:f>")
  819.  
  820. <:#226,9071>showwindow(hwnd, 1)
  821.  
  822. <:#226,9071>activateapp("")
  823.  
  824. <:#226,9071>enablehardwareinput(1)
  825.  
  826. <:#226,9071>return 1
  827.  
  828. <:#226,9071>endit:
  829.  
  830. <:#226,9071>showwindow(hwnd, 1)
  831.  
  832. <:#226,9071>enablehardwareinput(1)
  833.  
  834. <:#226,9071>return 0
  835.  
  836. <:#226,9071>end function
  837.  
  838. <:#226,9071>
  839.  
  840. <:#226,9071>
  841.  
  842. @Function@<:#226,9071>function readorganniversary(dates_ann, text_ann, month)
  843.  
  844. <:#226,9071>ignorekeyboard(1)
  845.  
  846. <:#226,9071>onerror endit
  847.  
  848. <:#226,9071>oncancel endit
  849.  
  850. <:#226,9071>DIM field(2)
  851.  
  852. <:#226,9071>'pause(030)
  853.  
  854. <:#226,9071>datafile = GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini");
  855.  
  856. <:#226,9071>fh = fopen(datafile, "r")
  857.  
  858. <:#226,9071>if fh = 0
  859.  
  860. <:#226,9071>    return 0
  861.  
  862. <:#226,9071>endif
  863.  
  864. <:#226,9071>if fgets$(fh) = -1
  865.  
  866. <:#226,9071>    fclose(fh)
  867.  
  868. <:#226,9071>    return 0
  869.  
  870. <:#226,9071>endif
  871.  
  872. <:#226,9071>fclose(fh)
  873.  
  874. <:#226,9071>handle = RecOpen(datafile,, "*Comma:1", 0)
  875.  
  876. <:#226,9071>IF handle = 0
  877.  
  878. <:#226,9071>    return 0
  879.  
  880. <:#226,9071>endif
  881.  
  882. <:#226,9071>numfields = RecFieldCount(handle)
  883.  
  884. <:#226,9071>if numfields << 1
  885.  
  886. <:#226,9071>    goto endit
  887.  
  888. <:#226,9071>endif
  889.  
  890. <:#226,9071>
  891.  
  892. <:#226,9071>sep = GetProfileString$("intl", "sDate")
  893.  
  894. <:#226,9071>if sep = ""
  895.  
  896. <:#226,9071>    sep = "/"
  897.  
  898. <:#226,9071>endif
  899.  
  900. <:#226,9071>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))
  901.  
  902. <:#226,9071>if sShortDate = ""
  903.  
  904. <:#226,9071>    'sShortDate = "M/D/YY"
  905.  
  906. <:#226,9071>    sShortDate = "YY/MM/DD"
  907.  
  908. <:#226,9071>endif
  909.  
  910. <:#226,9071>for i = 1 to 3
  911.  
  912. <:#226,9071>    smonth = strfield$(sShortDate, i, sep)
  913.  
  914. <:#226,9071>    'if smonth = "M"
  915.  
  916. <:#226,9071>    if smonth = "MM"
  917.  
  918. <:#226,9071>        smonth = i
  919.  
  920. <:#226,9071>        break
  921.  
  922. <:#226,9071>    endif
  923.  
  924. <:#226,9071>next
  925.  
  926. <:#226,9071>for i = 1 to 3
  927.  
  928. <:#226,9071>    sday = strfield$(sShortDate, i, sep)
  929.  
  930. <:#226,9071>    'if sday = "D"
  931.  
  932. <:#226,9071>    if sday = "DD"
  933.  
  934. <:#226,9071>        sday = i
  935.  
  936. <:#226,9071>        break
  937.  
  938. <:#226,9071>    endif
  939.  
  940. <:#226,9071>next
  941.  
  942. <:#226,9071>for i = 1 to 3
  943.  
  944. <:#226,9071>    syear = strfield$(sShortDate, i, sep)
  945.  
  946. <:#226,9071>    if syear = "YY"
  947.  
  948. <:#226,9071>        syear = i
  949.  
  950. <:#226,9071>        break
  951.  
  952. <:#226,9071>    endif
  953.  
  954. <:#226,9071>next
  955.  
  956. <:#226,9071>
  957.  
  958. <:#226,9071>FOR I = 1 to 2
  959.  
  960. <:#226,9071>    name = (RecFieldName$(handle, I))
  961.  
  962. <:#226,9071>    field(i) = name
  963.  
  964. <:#226,9071>NEXT
  965.  
  966. <:#226,9071>i = 1
  967.  
  968. <:#226,9071>
  969.  
  970. <:#226,9071>WHILE RecNextRec(handle) = 0
  971.  
  972. <:#226,9071>    name = (RecGetField(handle, field(1))); ' date
  973.  
  974. <:#226,9071>    orgmonth = strfield$(name, smonth, sep)
  975.  
  976. <:#226,9071>    if orgmonth <<<;> month
  977.  
  978. <:#226,9071>        goto skipit
  979.  
  980. <:#226,9071>    endif
  981.  
  982. <:#226,9071>    date = strfield$(name, sday, sep)
  983.  
  984. <:#226,9071>    if left$(date, 1) = 0
  985.  
  986. <:#226,9071>        date = right$(date, 1)
  987.  
  988. <:#226,9071>    endif
  989.  
  990. <:#226,9071>    ArrayInsert(&dates_ann, i, date) ' insert the date
  991.  
  992. <:#226,9071>    name = (RecGetField(handle, field(2)));
  993.  
  994. <:#226,9071>    ArrayInsert(&text_ann, i, name)
  995.  
  996. <:#226,9071>    statusbarmsg(name)
  997.  
  998. <:#226,9071>    i = i + 1
  999.  
  1000. <:#226,9071>    skipit:
  1001.  
  1002. <:#226,9071>WEND
  1003.  
  1004. <:#226,9071>RecClose(handle)
  1005.  
  1006. <:#226,9071>statusbarmsg("")
  1007.  
  1008. <:#226,9071>return i - 1
  1009.  
  1010. <:#226,9071>endit:
  1011.  
  1012. <:#226,9071>RecClose(handle)
  1013.  
  1014. <:#226,9071>statusbarmsg("")
  1015.  
  1016. <:#226,9071>return 0
  1017.  
  1018. <:#226,9071>end function
  1019.  
  1020. <:#226,9071>
  1021.  
  1022. <:#226,9071>
  1023.  
  1024. @Function@<:#226,9071>function readorgdates(dates, text, time, year, month)
  1025.  
  1026. <:#226,9071>ignorekeyboard(1)
  1027.  
  1028. <:#226,9071>onerror endit
  1029.  
  1030. <:#226,9071>oncancel endit
  1031.  
  1032. <:#226,9071>mynumfields = 4
  1033.  
  1034. <:#226,9071>year = right$(year, 2)
  1035.  
  1036. <:#226,9071>DIM field(mynumfields)
  1037.  
  1038. <:#226,9071>datafile = GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini");
  1039.  
  1040. <:#226,9071>
  1041.  
  1042. <:#226,9071>'pause(030)
  1043.  
  1044. <:#226,9071>fh = fopen(datafile, "r")
  1045.  
  1046. <:#226,9071>if fh = 0
  1047.  
  1048. <:#226,9071>    return 0
  1049.  
  1050. <:#226,9071>endif
  1051.  
  1052. <:#226,9071>if fgets$(fh) = -1
  1053.  
  1054. <:#226,9071>    fclose(fh)
  1055.  
  1056. <:#226,9071>    return 0
  1057.  
  1058. <:#226,9071>endif
  1059.  
  1060. <:#226,9071>fclose(fh)
  1061.  
  1062. <:#226,9071>handle = RecOpen(datafile,, "*Comma:1", 0)
  1063.  
  1064. <:#226,9071>IF handle = 0
  1065.  
  1066. <:#226,9071>    return 0
  1067.  
  1068. <:#226,9071>endif
  1069.  
  1070. <:#226,9071>numfields = RecFieldCount(handle)
  1071.  
  1072. <:#226,9071>if numfields << 1
  1073.  
  1074. <:#226,9071>    goto endit
  1075.  
  1076. <:#226,9071>endif
  1077.  
  1078. <:#226,9071>
  1079.  
  1080. <:#226,9071>sep = GetProfileString$("intl", "sDate")
  1081.  
  1082. <:#226,9071>if sep = ""
  1083.  
  1084. <:#226,9071>    sep = "/"
  1085.  
  1086. <:#226,9071>endif
  1087.  
  1088. <:#226,9071>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))
  1089.  
  1090. <:#226,9071>if sShortDate = ""
  1091.  
  1092. <:#226,9071>    'sShortDate = "M/D/YY"
  1093.  
  1094. <:#226,9071>    sShortDate = "YY/MM/DD"
  1095.  
  1096. <:#226,9071>endif
  1097.  
  1098. <:#226,9071>for i = 1 to 3
  1099.  
  1100. <:#226,9071>    smonth = strfield$(sShortDate, i, sep)
  1101.  
  1102. <:#226,9071>    'if smonth = "M"
  1103.  
  1104. <:#226,9071>    if smonth = "MM"
  1105.  
  1106. <:#226,9071>        smonth = i
  1107.  
  1108. <:#226,9071>        break
  1109.  
  1110. <:#226,9071>    endif
  1111.  
  1112. <:#226,9071>next
  1113.  
  1114. <:#226,9071>for i = 1 to 3
  1115.  
  1116. <:#226,9071>    sday = strfield$(sShortDate, i, sep)
  1117.  
  1118. <:#226,9071>    'if sday = "D"
  1119.  
  1120. <:#226,9071>    if sday = "DD"
  1121.  
  1122. <:#226,9071>        sday = i
  1123.  
  1124. <:#226,9071>        break
  1125.  
  1126. <:#226,9071>    endif
  1127.  
  1128. <:#226,9071>next
  1129.  
  1130. <:#226,9071>for i = 1 to 3
  1131.  
  1132. <:#226,9071>    syear = strfield$(sShortDate, i, sep)
  1133.  
  1134. <:#226,9071>    if syear = "YY"
  1135.  
  1136. <:#226,9071>        syear = i
  1137.  
  1138. <:#226,9071>        break
  1139.  
  1140. <:#226,9071>    endif
  1141.  
  1142. <:#226,9071>next
  1143.  
  1144. <:#226,9071>
  1145.  
  1146. <:#226,9071>FOR i = 1 to mynumfields
  1147.  
  1148. <:#226,9071>    name = (RecFieldName$(handle, i))
  1149.  
  1150. <:#226,9071>    field(i) = name
  1151.  
  1152. <:#226,9071>NEXT
  1153.  
  1154. <:#226,9071>
  1155.  
  1156. <:#226,9071>i = 1
  1157.  
  1158. <:#226,9071>WHILE RecNextRec(handle) = 0
  1159.  
  1160. <:#226,9071>
  1161.  
  1162. <:#226,9071>    name = (RecGetField(handle, field(1))); ' date
  1163.  
  1164. <:#226,9071>    orgyear = strfield$(name, syear, sep)
  1165.  
  1166. <:#226,9071>    if orgyear <<<;> year
  1167.  
  1168. <:#226,9071>        goto skipit
  1169.  
  1170. <:#226,9071>    endif
  1171.  
  1172. <:#226,9071>
  1173.  
  1174. <:#226,9071>    orgmonth = strfield$(name, smonth, sep)
  1175.  
  1176. <:#226,9071>
  1177.  
  1178. <:#226,9071>    if orgmonth <<<;> month
  1179.  
  1180. <:#226,9071>        goto skipit
  1181.  
  1182. <:#226,9071>    endif
  1183.  
  1184. <:#226,9071>
  1185.  
  1186. <:#226,9071>    date = strfield$(name, sday, sep)
  1187.  
  1188. <:#226,9071>    if left$(date, 1) = 0
  1189.  
  1190. <:#226,9071>        date = right$(date, 1)
  1191.  
  1192. <:#226,9071>    endif
  1193.  
  1194. <:#226,9071>
  1195.  
  1196. <:#226,9071>    ArrayInsert(&dates, i, date) ' insert the date
  1197.  
  1198. <:#226,9071>    name = (RecGetField(handle, field(2))); ' time
  1199.  
  1200. <:#226,9071>    ArrayInsert(&time, i, name)
  1201.  
  1202. <:#226,9071>    name = (RecGetField(handle, field(4))); ' text
  1203.  
  1204. <:#226,9071>    ArrayInsert(&text, i, name)
  1205.  
  1206. <:#226,9071>
  1207.  
  1208. <:#226,9071>    statusbarmsg(name)
  1209.  
  1210. <:#226,9071>    i = i + 1
  1211.  
  1212. <:#226,9071>    skipit:
  1213.  
  1214. <:#226,9071>WEND
  1215.  
  1216. <:#226,9071>
  1217.  
  1218. <:#226,9071>RecClose(handle)
  1219.  
  1220. <:#226,9071>statusbarmsg("")
  1221.  
  1222. <:#226,9071>return i - 1
  1223.  
  1224. <:#226,9071>endit:
  1225.  
  1226. <:#226,9071>RecClose(handle)
  1227.  
  1228. <:#226,9071>statusbarmsg("")
  1229.  
  1230. <:#226,9071>return 0
  1231.  
  1232. <:#226,9071>end function
  1233.  
  1234. @Function@<:#226,9071>
  1235.  
  1236. <:#226,9071>
  1237.  
  1238. @Function@<:#226,9071>function helpme()
  1239.  
  1240. <:#452,9071>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 140)
  1241.  
  1242. <:#226,9071>end function
  1243.  
  1244. <:#226,9071>
  1245.  
  1246. <:#226,9071>
  1247.  
  1248. @Function@<:#226,9071>function datenum2datestr(orgmonth)
  1249.  
  1250. <:#226,9071>ignorekeyboard(1)
  1251.  
  1252. <:#226,9071>switch orgmonth
  1253.  
  1254. <:#226,9071>    case 01
  1255.  
  1256. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éPîÄ<:f240,BArial,255,0,0>"<:f>
  1257.  
  1258. <:#284,9071><:f240,BArial,255,0,0>    case 02
  1259.  
  1260. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éQîÄ<:f240,BArial,255,0,0>"<:f>
  1261.  
  1262. <:#284,9071><:f240,BArial,255,0,0>    case 03
  1263.  
  1264. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éRîÄ<:f240,BArial,255,0,0>"<:f>
  1265.  
  1266. <:#284,9071><:f240,BArial,255,0,0>    case 04
  1267.  
  1268. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éSîÄ<:f240,BArial,255,0,0>"<:f>
  1269.  
  1270. <:#284,9071><:f240,BArial,255,0,0>    case 05
  1271.  
  1272. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éTîÄ<:f240,BArial,255,0,0>"<:f>
  1273.  
  1274. <:#284,9071><:f240,BArial,255,0,0>    case 06
  1275.  
  1276. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éUîÄ<:f240,BArial,255,0,0>"<:f>
  1277.  
  1278. <:#284,9071><:f240,BArial,255,0,0>    case 07
  1279.  
  1280. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éVîÄ<:f240,BArial,255,0,0>"<:f>
  1281.  
  1282. <:#284,9071><:f240,BArial,255,0,0>    case 08
  1283.  
  1284. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éWîÄ<:f240,BArial,255,0,0>"<:f>
  1285.  
  1286. <:#284,9071><:f240,BArial,255,0,0>    case 09
  1287.  
  1288. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éXîÄ<:f240,BArial,255,0,0>"<:f>
  1289.  
  1290. <:#284,9071><:f240,BArial,255,0,0>    case 10
  1291.  
  1292. <:#284,9071><:f240,BArial,255,0,0>        return <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>10îÄ<:f240,BArial,255,0,0>"<:f>
  1293.  
  1294. <:#284,9071><:f240,BArial,255,0,0>    case 11
  1295.  
  1296. <:#284,9071><:f240,BArial,255,0,0>        retur<:f240,BArial,255,0,0>n "<:f240,1élér û╛Æ⌐,255,0,0>11îÄ<:f240,BArial,255,0,0>"
  1297.  
  1298. <:#284,9071><:f240,BArial,255,0,0>    case 12
  1299.  
  1300. <:#284,9071><:f240,BArial,255,0,0>        re<:f240,BArial,255,0,0>turn "<:f240,1élér û╛Æ⌐,255,0,0>12îÄ<:f240,BArial,255,0,0>"
  1301.  
  1302. <:#226,9071>endswitch
  1303.  
  1304. <:#226,9071>end function
  1305.  
  1306. <:#226,9071>
  1307.  
  1308. @Function@<:#226,9071>function datestr2datenum(orgmonth)
  1309.  
  1310. <:#226,9071>ignorekeyboard(1)
  1311.  
  1312. <:#226,9071>switch orgmonth
  1313.  
  1314. <:#284,9071><:f240,BArial,255,0,0>    case <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éPîÄ<:f240,BArial,255,0,0>"
  1315.  
  1316. <:#284,9071><:f240,BArial,255,0,0>        return 01
  1317.  
  1318. <:#284,9071><:f240,BArial,255,0,0>    case <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éQîÄ<:f240,BArial,255,0,0>"
  1319.  
  1320. <:#284,9071><:f240,BArial,255,0,0>        return 02
  1321.  
  1322. <:#284,9071><:f240,BArial,255,0,0>    case <:f240,BArial,255,0,0>"<:f240,1élér û╛Æ⌐,255,0,0>éRîÄ<:f240,BArial,255,0,0>"
  1323.  
  1324. <:#284,9071><:f240,BArial,255,0,0>        return 03
  1325.  
  1326. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éSîÄ<:f><:f240,BArial,255,0,0>"
  1327.  
  1328. <:#284,9071><:f240,BArial,255,0,0>        return 04
  1329.  
  1330. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éTîÄ<:f><:f240,BArial,255,0,0>"
  1331.  
  1332. <:#284,9071><:f240,BArial,255,0,0>        return 05
  1333.  
  1334. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éUîÄ<:f><:f240,BArial,255,0,0>"
  1335.  
  1336. <:#284,9071><:f240,BArial,255,0,0>        return 06
  1337.  
  1338. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éVîÄ<:f><:f240,BArial,255,0,0>"
  1339.  
  1340. <:#284,9071><:f240,BArial,255,0,0>        return 07
  1341.  
  1342. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éWîÄ<:f><:f240,BArial,255,0,0>"
  1343.  
  1344. <:#284,9071><:f240,BArial,255,0,0>        return 08
  1345.  
  1346. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>éXîÄ<:f><:f240,BArial,255,0,0>"
  1347.  
  1348. <:#284,9071><:f240,BArial,255,0,0>        return 09
  1349.  
  1350. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>10îÄ<:f><:f240,BArial,255,0,0>"
  1351.  
  1352. <:#284,9071><:f240,BArial,255,0,0>        return 10
  1353.  
  1354. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>11îÄ<:f><:f240,BArial,255,0,0>"
  1355.  
  1356. <:#284,9071><:f240,BArial,255,0,0>        return 11
  1357.  
  1358. <:#284,9071><:f240,BArial,255,0,0>    case "<:f><:f240,1élér û╛Æ⌐,255,0,0>12îÄ<:f><:f240,BArial,255,0,0>"
  1359.  
  1360. <:#226,9071>        return 12
  1361.  
  1362. <:#226,9071>endswitch
  1363.  
  1364. <:#226,9071>end function
  1365.  
  1366. @Function@<:#226,9071>
  1367.  
  1368. <:#226,9071>
  1369.  
  1370. <:#226,9071>FUNCTION AutoCal(year, month)
  1371.  
  1372. <:#226,9071>ignorekeyboard(1)
  1373.  
  1374. @Remark@<:#226,9071>'Declaration of Variables
  1375.  
  1376. <:#264,9071>DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>
  1377.  
  1378. <:#264,9071>DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>
  1379.  
  1380. <:#264,9071>DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>
  1381.  
  1382. <:#264,9071>DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>
  1383.  
  1384. <:#264,9071>DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>
  1385.  
  1386. <:#264,9071>DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>
  1387.  
  1388. <:#264,9071>DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>
  1389.  
  1390. <:#264,9071>DEFSTR ChkLen  <:f160,2Tms Rmn,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.<:f>
  1391.  
  1392. <:#264,9071>DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>
  1393.  
  1394. <:#264,9071>DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>
  1395.  
  1396. <:#264,9071>DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>'This contains the number of MDI windows open when starting macro.
  1397.  
  1398. @Remark@<:#226,9071>'Declaration of Functions.
  1399.  
  1400. <:#226,9071>DECLARE BuildDate(M,Y,N)
  1401.  
  1402. <:#226,9071>DECLARE FillCalendar(F,L)
  1403.  
  1404. <:#226,9071>DECLARE CheckLeap(M,Y,N)
  1405.  
  1406. <:#226,9071>DECLARE AdjustTable()
  1407.  
  1408. <:#226,9071>NW=IsNewWave()
  1409.  
  1410. <:#226,9071>if nw = 1
  1411.  
  1412. <:#260,9071>    message("<:f240,1élér û╛Æ⌐,255,0,0>NewWave é╠è┬ï½ë║é┼é═Ä└ìsé┼é½é▄é╣é±üB<:f>", "▒╨╠▀█")
  1413.  
  1414. <:#226,9071>    return 0
  1415.  
  1416. <:#226,9071>ENDIF
  1417.  
  1418. <:#226,9071>LayoutMode()
  1419.  
  1420. <:#226,9071>FullPageView()
  1421.  
  1422. <:#226,9071>rmac = getrunningmacrofile$()
  1423.  
  1424. <:#226,9071>tryagain:
  1425.  
  1426. @Remark@<:#226,9071>'Fill Edit boxes with current Month and Year.
  1427.  
  1428. <:#284,9071>cyear = <:f240,BArial,255,0,0>StrField$(FormatDate$(Now<:f240,BArial,255,0,0>(),"u"),1,"/")
  1429.  
  1430. <:#284,9071>cmon =<:f240,BArial,255,0,0>StrField$(FormatD<:f240,BArial,255,0,0>ate$(N<:f240,BArial,255,0,0>ow(),"u"),2,"/")
  1431.  
  1432. <:#284,9071><:f240,BArial,255,0,0>FillE<:f240,BArial,255,0,0>dit(9500,datenum2datestr(cmon))
  1433.  
  1434. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9501,cyear)
  1435.  
  1436. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éPîÄ<:f><:f240,BArial,255,0,0>")
  1437.  
  1438. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éQîÄ<:f><:f240,BArial,255,0,0>")
  1439.  
  1440. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éRîÄ<:f><:f240,BArial,255,0,0>")
  1441.  
  1442. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éSîÄ<:f><:f240,BArial,255,0,0>")
  1443.  
  1444. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éTîÄ<:f><:f240,BArial,255,0,0>")
  1445.  
  1446. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éUîÄ<:f><:f240,BArial,255,0,0>")
  1447.  
  1448. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éVîÄ<:f><:f240,BArial,255,0,0>")
  1449.  
  1450. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éWîÄ<:f><:f240,BArial,255,0,0>")
  1451.  
  1452. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>éXîÄ<:f><:f240,BArial,255,0,0>")
  1453.  
  1454. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>10îÄ<:f><:f240,BArial,255,0,0>")
  1455.  
  1456. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>11îÄ<:f><:f240,BArial,255,0,0>")
  1457.  
  1458. <:#284,9071><:f240,BArial,255,0,0>FillEdit(9500,"<:f><:f240,1élér û╛Æ⌐,255,0,0>12îÄ<:f><:f240,BArial,255,0,0>")
  1459.  
  1460. <:#226,9071>FillEdit(9501,"1980")
  1461.  
  1462. <:#226,9071>FillEdit(9501,"1981")
  1463.  
  1464. <:#226,9071>FillEdit(9501,"1982")
  1465.  
  1466. <:#226,9071>FillEdit(9501,"1983")
  1467.  
  1468. <:#226,9071>FillEdit(9501,"1984")
  1469.  
  1470. <:#226,9071>FillEdit(9501,"1985")
  1471.  
  1472. <:#226,9071>FillEdit(9501,"1986")
  1473.  
  1474. <:#226,9071>FillEdit(9501,"1987")
  1475.  
  1476. <:#226,9071>FillEdit(9501,"1988")
  1477.  
  1478. <:#226,9071>FillEdit(9501,"1989")
  1479.  
  1480. <:#226,9071>FillEdit(9501,"1990")
  1481.  
  1482. <:#226,9071>FillEdit(9501,"1991")
  1483.  
  1484. <:#226,9071>FillEdit(9501,"1992")
  1485.  
  1486. <:#226,9071>FillEdit(9501,"1993")
  1487.  
  1488. <:#226,9071>FillEdit(9501,"1994")
  1489.  
  1490. <:#226,9071>FillEdit(9501,"1995")
  1491.  
  1492. <:#226,9071>FillEdit(9501,"1996")
  1493.  
  1494. <:#226,9071>FillEdit(9501,"1997")
  1495.  
  1496. <:#226,9071>FillEdit(9501,"1998")
  1497.  
  1498. <:#226,9071>FillEdit(9501,"1999")
  1499.  
  1500. <:#226,9071>filledit(20, getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini"))
  1501.  
  1502. @Remark@<:#226,9071>
  1503.  
  1504. @Remark@<:#226,9071>'Call Dialog box for data entry and get data from edit boxes.
  1505.  
  1506. <:#226,9071>
  1507.  
  1508. <:#226,9071>'SetDlgCallBack(0, "{rmac}!initdlg")
  1509.  
  1510. <:#226,9071>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  1511.  
  1512. <:#226,9071>Stat1=DialogBox("." "Heymon")
  1513.  
  1514. <:#226,9071>'deletefont()
  1515.  
  1516. <:#226,9071>if stat1 = 0
  1517.  
  1518. <:#226,9071>    return 0
  1519.  
  1520. <:#226,9071>endif
  1521.  
  1522. <:#226,9071>if findwindow("TZ_PORG", 0) << 1
  1523.  
  1524. <:#226,9071>    PostMessage(getactivewindow(),0x111,1,0)
  1525.  
  1526. <:#260,9071>    message("<:f240,1élér û╛Æ⌐,255,0,0>╡░╢▐┼▓╗▐░é¬ïNô«é╡é─éóé▄é╣é±üB<:f>", "▒╨╠▀█")
  1527.  
  1528. <:#226,9071>    return 0
  1529.  
  1530. <:#226,9071>endif
  1531.  
  1532. <:#226,9071>
  1533.  
  1534. <:#226,9071>Month1=GetDialogField$(9500)
  1535.  
  1536. <:#226,9071>Year1=GetDialogField$(9501)
  1537.  
  1538. @Remark@<:#226,9071>WriteProfileString("OrgCal", "DoAnniversary", getdialogfield$(20), "amipro2.ini")
  1539.  
  1540. @Remark@<:#226,9071>'Check for Cancel.
  1541.  
  1542. @Remark@<:#226,9071>'Check for error in entry.
  1543.  
  1544. <:#226,9071>IF Year1 << 1980 OR Year1 <;> 1999
  1545.  
  1546. <:#260,9071>    Message("<:f240,1élér û╛Æ⌐,255,0,0>öNé═ 1980 é⌐éτ 1999 é╠ö═ê═é┼ÄwÆΦé╡é─é¡é╛é│éóüB<:f>")
  1547.  
  1548. <:#226,9071>    FillEdit(9500,Month1)
  1549.  
  1550. <:#226,9071>    FillEdit(9501,Year1)
  1551.  
  1552. <:#226,9071>    GOTO TryAgain
  1553.  
  1554. <:#226,9071>ENDIF
  1555.  
  1556. <:#226,9071>ChkLen = LEN(Year1)
  1557.  
  1558. <:#226,9071>IF ChkLen<<<;>4
  1559.  
  1560. <:#284,9071><:f240,BArial,255,0,0>    Message("<:f><:f240,1élér û╛Æ⌐,255,0,0>öNé═ YYYY (ùßéªé╬ '1991') 
  1561. é╠î`Ä«é┼ÄwÆΦé╡é─é¡é╛é│éó<:f><:f240,1élér û╛Æ⌐,255,0,0>üB<:f><:f240,BArial,255,0,0>")<:f>
  1562.  
  1563. <:#226,9071>    FillEdit(9500,Month1)
  1564.  
  1565. <:#226,9071>    FillEdit(9501,Year1)
  1566.  
  1567. <:#226,9071>    GOTO TryAgain
  1568.  
  1569. <:#226,9071>'ELSEIF Year1<<1980 OR Year1<;>1999
  1570.  
  1571. <:#284,9071><:f240,BArial,255,0,0>    Message("<:f><:f240,1élér û╛Æ⌐,255,0,0>öNé═ 1980 
  1572. é⌐éτ 1999 é╠ö═ê═é┼ÄwÆΦé╡é─é¡é╛é│éóüB<:f><:f240,BArial,255,0,0>")<:f>
  1573.  
  1574. <:#226,9071>    FillEdit(9500,Month1)
  1575.  
  1576. <:#226,9071>    FillEdit(9501,Year1)
  1577.  
  1578. <:#226,9071>    GOTO TryAgain
  1579.  
  1580. <:#226,9071>ENDIF
  1581.  
  1582. @Remark@<:#226,9071>'Convert month to lower case and process.
  1583.  
  1584. <:#226,9071>LMonth=LCase$(Month1)
  1585.  
  1586. <:#284,9071>IF LMonth= <:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>éPîÄ<:f><:f240,BArial,255,0,0>" 
  1587.  
  1588. <:#284,9071>    NMonth=<:f240,BArial,255,0,0>"01/01"<:f>
  1589.  
  1590. <:#226,9071>    LastDay=31
  1591.  
  1592. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1593.  
  1594. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1595.  
  1596. <:#284,9071>ELSEIF LMonth= <:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>éQîÄ<:f><:f240,BArial,255,0,0>"  
  1597.  
  1598. <:#284,9071><:f240,BArial,255,0,0>    NMonth="02/01"
  1599.  
  1600. <:#226,9071>    LastDay=CheckLeap(Month1,Year1,NMonth)
  1601.  
  1602. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1603.  
  1604. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1605.  
  1606. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éRîÄ<:f><:f240,BArial,255,0,0>"<:f>
  1607.  
  1608. <:#284,9071><:f240,BArial,255,0,0>    NMonth="03/01"
  1609.  
  1610. <:#226,9071>    LastDay=31
  1611.  
  1612. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1613.  
  1614. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1615.  
  1616. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éSîÄ<:f><:f240,BArial,255,0,0>"  
  1617.  
  1618. <:#284,9071><:f240,BArial,255,0,0>    NMonth="04/01"
  1619.  
  1620. <:#226,9071>    LastDay=30
  1621.  
  1622. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1623.  
  1624. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1625.  
  1626. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éTîÄ<:f><:f240,BArial,255,0,0>"  
  1627.  
  1628. <:#284,9071><:f240,BArial,255,0,0>    NMonth="05/01"
  1629.  
  1630. <:#226,9071>    LastDay=31
  1631.  
  1632. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1633.  
  1634. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1635.  
  1636. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éUîÄ<:f><:f240,BArial,255,0,0>"  
  1637.  
  1638. <:#284,9071><:f240,BArial,255,0,0>    NMonth="06/01"
  1639.  
  1640. <:#226,9071>    LastDay=30
  1641.  
  1642. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1643.  
  1644. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1645.  
  1646. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éVîÄ<:f><:f240,BArial,255,0,0>"
  1647.  
  1648. <:#284,9071><:f240,BArial,255,0,0>    NMonth="07/01"
  1649.  
  1650. <:#226,9071>    LastDay=31
  1651.  
  1652. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1653.  
  1654. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1655.  
  1656. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éWîÄ<:f><:f240,BArial,255,0,0>"  
  1657.  
  1658. <:#284,9071><:f240,BArial,255,0,0>    NMonth="08/01"
  1659.  
  1660. <:#226,9071>    LastDay=31
  1661.  
  1662. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1663.  
  1664. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1665.  
  1666. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>éXîÄ<:f><:f240,BArial,255,0,0>"  
  1667.  
  1668. <:#284,9071><:f240,BArial,255,0,0>    NMonth="09/01"
  1669.  
  1670. <:#226,9071>    LastDay=30
  1671.  
  1672. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1673.  
  1674. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1675.  
  1676. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>10îÄ<:f><:f240,BArial,255,0,0>"  
  1677.  
  1678. <:#284,9071><:f240,BArial,255,0,0>    NMonth="10/01"
  1679.  
  1680. <:#226,9071>    LastDay=31
  1681.  
  1682. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1683.  
  1684. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1685.  
  1686. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>11îÄ<:f><:f240,BArial,255,0,0>"  
  1687.  
  1688. <:#284,9071><:f240,BArial,255,0,0>    NMonth="11/01"
  1689.  
  1690. <:#226,9071>    LastDay=30
  1691.  
  1692. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1693.  
  1694. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1695.  
  1696. <:#284,9071><:f240,BArial,255,0,0>ELSEIF LMonth= "<:f><:f240,1élér û╛Æ⌐,255,0,0>12îÄ<:f><:f240,BArial,255,0,0>"  
  1697.  
  1698. <:#284,9071><:f240,BArial,255,0,0>    NMonth="12/01"
  1699.  
  1700. <:#226,9071>    LastDay=31
  1701.  
  1702. <:#226,9071>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1703.  
  1704. <:#226,9071>    FillCalendar(FirstDayWeek,LastDay)
  1705.  
  1706. @Remark@<:#226,9071>'Check for error in Month entry
  1707.  
  1708. <:#226,9071>ELSE 
  1709.  
  1710. <:#284,9071><:f240,BArial,255,0,0>    Message ("<:f><:f240,1élér û╛Æ⌐,255,0,0>îÄé¬É│é╡é¡ÄwÆΦé│éΩé─éóé▄é╣é±üBéαéñêΩôxÄwÆΦé╡é─é¡é╛é│éóüB<:f><:f240,BArial,255,0,0>")
  1711.  
  1712. <:#226,9071>    FillEdit(9500,Month1)
  1713.  
  1714. <:#226,9071>    FillEdit(9501,Year1)
  1715.  
  1716. <:#226,9071>    GOTO TryAgain
  1717.  
  1718. <:#226,9071>ENDIF;
  1719.  
  1720. <:#226,9071>*year = year1;
  1721.  
  1722. <:#226,9071>*month = month1
  1723.  
  1724. <:#226,9071>return 1
  1725.  
  1726. <:#226,9071>END FUNCTION
  1727.  
  1728. <:#226,9071>
  1729.  
  1730. <:#226,9071>Function BuildDate(Month1,Year1,NMonth)
  1731.  
  1732. @Remark@<:#226,9071>ignorekeyboard(1)
  1733.  
  1734. <:#226,9071>DEFSTR CDate
  1735.  
  1736. <:#226,9071>DEFSTR NDate
  1737.  
  1738. <:#226,9071>DEFSTR NDays
  1739.  
  1740. <:#226,9071>DEFSTR WDate
  1741.  
  1742. <:#226,9071>DEFSTR DateRef
  1743.  
  1744. <:#226,9071>DEFSTR TYear
  1745.  
  1746. @Remark@<:#226,9071>'Extract last two digits of date for processing.
  1747.  
  1748. <:#226,9071>TYear=Mid$(Year1,3,2)
  1749.  
  1750. <:#226,9071>'CDate=StrCat$(NMonth,TYear) 
  1751.  
  1752. <:#226,9071>CDate=StrCat$(TYear,"/",NMonth)
  1753.  
  1754. <:#284,9071><:f240,BArial,255,0,0>'DateRef="01/01/90"
  1755.  
  1756. <:#284,9071><:f240,BArial,255,0,0>DateRef="<:f><:f240,BArial,255,0,0>90<:f><:f240,BArial,255,0,0>/<:f><:f240,BArial,255,0,0>01/01<:f><:f240,BArial,255,0,0>"<:f>
  1757.  
  1758. <:#226,9071>NDays=DateDiff(CDate,DateRef)
  1759.  
  1760. <:#226,9071>NDate=NDays*86400+631224000
  1761.  
  1762. <:#226,9071>WDate=FormatDate$(NDate,"f")
  1763.  
  1764. <:#226,9071>BuildDate=StrField$(WDate,1," ")
  1765.  
  1766. <:#226,9071>Type("<[>CtrlHome]{Year1}<[>Right]{Month1}<[>Right]{Year1}")
  1767.  
  1768. <:#226,9071>END FUNCTION
  1769.  
  1770. <:#226,9071>
  1771.  
  1772. <:#226,9071>FUNCTION FillCalendar(FirstDayWeek,LastDay)
  1773.  
  1774. <:#226,9071>ignorekeyboard(1)
  1775.  
  1776. <:#226,9071>'answermsgbox(yes)
  1777.  
  1778. <:#226,9071>'SaveAs("x.sam", 1, "", "")
  1779.  
  1780. <:#226,9071>DEFSTR DayNum
  1781.  
  1782. <:#226,9071>DEFSTR Column
  1783.  
  1784. <:#226,9071>DEFSTR Row
  1785.  
  1786. <:#226,9071>DEFSTR Row2
  1787.  
  1788. <:#226,9071>DEFSTR Row3
  1789.  
  1790. <:#226,9071>DEFSTR R1
  1791.  
  1792. <:#226,9071>DEFSTR R2
  1793.  
  1794. <:#226,9071>DEFSTR R3
  1795.  
  1796. <:#226,9071>DEFSTR R4
  1797.  
  1798. <:#226,9071>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )
  1799.  
  1800. <:#226,9071>DayNum=1
  1801.  
  1802. <:#226,9071>
  1803.  
  1804. <:#284,9071>IF FirstDayWeek=<:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>Sunday<:f><:f240,BArial,255,0,0>"
  1805.  
  1806. <:#226,9071>    FOR R1=1 TO 6
  1807.  
  1808. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1809.  
  1810. <:#226,9071>        DayNum=DayNum + 1
  1811.  
  1812. <:#226,9071>    NEXT
  1813.  
  1814. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>Monday<:f><:f240,BArial,255,0,0>"
  1815.  
  1816. <:#226,9071>    Type("<[>Right]<[>Right]")
  1817.  
  1818. <:#226,9071>    FOR R1=1 TO 5
  1819.  
  1820. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1821.  
  1822. <:#226,9071>        DayNum=DayNum + 1
  1823.  
  1824. <:#226,9071>    NEXT
  1825.  
  1826. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>Tuesday<:f><:f240,BArial,255,0,0>"
  1827.  
  1828. <:#226,9071>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")
  1829.  
  1830. <:#226,9071>    FOR R2=1 TO 4
  1831.  
  1832. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1833.  
  1834. <:#226,9071>        DayNum=DayNum + 1
  1835.  
  1836. <:#226,9071>    NEXT
  1837.  
  1838. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>Wednesday<:f><:f240,BArial,255,0,0>"
  1839.  
  1840. <:#226,9071>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1841.  
  1842. <:#226,9071>    FOR R3=1 TO 3
  1843.  
  1844. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1845.  
  1846. <:#226,9071>        DayNum=DayNum + 1
  1847.  
  1848. <:#226,9071>    NEXT
  1849.  
  1850. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"<:f><:f240,1élér û╛Æ⌐,255,0,0>Thu<:f><:f240,1élér û╛Æ⌐,255,0,0>rsday<:f240,BArial,255,0,0>"
  1851.  
  1852. <:#226,9071>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1853.  
  1854. <:#226,9071>    FOR R4=1 TO 2
  1855.  
  1856. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1857.  
  1858. <:#226,9071>        DayNum=DayNum + 1
  1859.  
  1860. <:#226,9071>    NEXT
  1861.  
  1862. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Friday"
  1863.  
  1864. <:#226,9071>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1865.  
  1866. <:#226,9071>    Type("{DayNum}<[>Right]<[>Right]")
  1867.  
  1868. <:#226,9071>    DayNum=DayNum + 1
  1869.  
  1870. <:#284,9071>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Saturday"<:f>
  1871.  
  1872. <:#678,9071>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1873.  
  1874. <:#226,9071>ENDIF
  1875.  
  1876. <:#226,9071>Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  1877.  
  1878. <:#226,9071>DayNum=DayNum + 1
  1879.  
  1880. <:#226,9071>FOR Column=2 <++>to<-+> 6
  1881.  
  1882. <:#226,9071>    FOR Row= 1 <++>to<-+> 6
  1883.  
  1884. <:#226,9071>        Type("{DayNum}<[>Right]<[>Right]")
  1885.  
  1886. <:#226,9071>        DayNum=DayNum + 1
  1887.  
  1888. <:#226,9071>        IF DayNum <;> LastDay
  1889.  
  1890. <:#226,9071>            EXIT FUNCTION
  1891.  
  1892. <:#226,9071>        ENDIF
  1893.  
  1894. <:#226,9071>    NEXT 
  1895.  
  1896. <:#226,9071>    IF Column=7 AND DayNum<<LastDay
  1897.  
  1898. <:#226,9071>        Type("{DayNum}")
  1899.  
  1900. <:#226,9071>        DayNum=DayNum + 1
  1901.  
  1902. <:#226,9071>        Type("<[>Right]")
  1903.  
  1904. <:#226,9071>'        AdjustTable()
  1905.  
  1906. <:#226,9071>        FOR Row2=1 TO 7
  1907.  
  1908. <:#226,9071>'            ConnectCells()
  1909.  
  1910. <:#226,9071>goto debug
  1911.  
  1912. <:#226,9071>            FOR Row3=1 TO 2
  1913.  
  1914. <:#226,9071>                TurnOn=TopSide
  1915.  
  1916. <:#226,9071>                TurnOff=0
  1917.  
  1918. <:#226,9071>                StaySame=CellShade + Outline
  1919.  
  1920. <:#452,9071>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)
  1921.  
  1922. <:#226,9071>                Type("<[>CTRLRight]")
  1923.  
  1924. <:#226,9071>            NEXT
  1925.  
  1926. <:#226,9071>            Type("<[>CTRLLeft]")
  1927.  
  1928. <:#226,9071>debug:
  1929.  
  1930. <:#226,9071>
  1931.  
  1932. <:#226,9071>            Type("{DayNum}")
  1933.  
  1934. <:#226,9071>            DayNum=DayNum + 1
  1935.  
  1936. <:#226,9071>            Type("<[>CTRLRight]")
  1937.  
  1938. <:#226,9071>            IF DayNum <;> LastDay
  1939.  
  1940. <:#226,9071>                BREAK
  1941.  
  1942. <:#226,9071>            ENDIF
  1943.  
  1944. <:#226,9071>        NEXT
  1945.  
  1946. <:#226,9071>    ELSEIF DayNum = LastDay
  1947.  
  1948. <:#226,9071>        Type("{DayNum}<[>CtrlHome]")
  1949.  
  1950. <:#226,9071>        BREAK
  1951.  
  1952. <:#226,9071>    ELSE
  1953.  
  1954. <:#226,9071>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  1955.  
  1956. <:#226,9071>    ENDIF
  1957.  
  1958. <:#226,9071>    DayNum=DayNum + 1
  1959.  
  1960. <:#226,9071>NEXT
  1961.  
  1962. <:#226,9071>END FUNCTION
  1963.  
  1964. <:#226,9071>
  1965.  
  1966. <:#226,9071>FUNCTION CheckLeap(Month1,Year1,NMonth)
  1967.  
  1968. @Remark@<:#226,9071>ignorekeyboard(1)
  1969.  
  1970. <:#240,9071>DEFSTR CDate
  1971.  
  1972. <:#240,9071>DEFSTR NDate
  1973.  
  1974. <:#226,9071>DEFSTR NDays
  1975.  
  1976. <:#240,9071>DEFSTR WDate
  1977.  
  1978. <:#240,9071>DEFSTR DateRef
  1979.  
  1980. <:#240,9071>DEFSTR TYear
  1981.  
  1982. <:#240,9071>DEFSTR LNDate
  1983.  
  1984. <:#240,9071>DEFSTR LeapDate
  1985.  
  1986. @Remark@<:#240,9071>'Extract last two digits of date for processing.
  1987.  
  1988. <:#240,9071>TYear=Mid$(Year1,3,2)
  1989.  
  1990. <:#240,9071>CDate=StrCat$(NMonth,TYear) 
  1991.  
  1992. <:#284,9071><:f240,BArial,255,0,0>DateRef="01/01/90"
  1993.  
  1994. <:#240,9071>NDays=DateDiff(CDate,DateRef)
  1995.  
  1996. <:#240,9071>NDate=NDays*86400+631224000
  1997.  
  1998. <:#240,9071>LNDate=NDate +  2419200
  1999.  
  2000. <:#284,9071><:f240,BArial,255,0,0>LeapDate=FormatDate$(LNDate,"a")<:f>
  2001.  
  2002. <:#240,9071>LeapNum=StrField$(LeapDate,1,"/")
  2003.  
  2004. <:#240,9071>IF LeapNum=3
  2005.  
  2006. <:#240,9071>    CheckLeap=28
  2007.  
  2008. <:#240,9071>ELSE 
  2009.  
  2010. <:#240,9071>    CheckLeap=29
  2011.  
  2012. <:#240,9071>ENDIF
  2013.  
  2014. <:#240,9071>END FUNCTION
  2015.  
  2016. <:#240,9071>
  2017.  
  2018. <:#240,9071>
  2019.  
  2020. <:#240,9071>function initdlg(hdlg, id, value)
  2021.  
  2022. <:#240,9071>for i = 1002 to 1008
  2023.  
  2024. <:#240,9071>    setfont(hdlg, i)
  2025.  
  2026. <:#240,9071>next
  2027.  
  2028. <:#240,9071>end function
  2029.  
  2030. <:#240,9071>
  2031.  
  2032. @Remark@<:#240,9071>'Dialog Box Section
  2033.  
  2034. <:#240,9071>
  2035.  
  2036. <:#240,9071>
  2037.  
  2038. <:#240,9071>DIALOG    Heymon
  2039.  
  2040. <:#226,9071>-2134900736    14    26    24    192    127    ""    ""    "îÄé╠╢┌▌└▐░"
  2041.  
  2042. <:#226,9071>'FONT    8    "Helv"
  2043.  
  2044. <:#255,9071>'FONT    8    "<:f,1élér û╛Æ⌐,>élér <:f><:f,1élér û╛Æ⌐,>û╛Æ⌐<:f>"
  2045.  
  2046. <:#452,9071>5    5    134    17    1002    1342177280    "static"    "╡░╢▐┼▓╗▐░é╠├▐░└é≡Ägé┴é─îÄé╠╢┌▌└▐░é≡ì∞ɼé╡é▄é╖üB"    0 
  2047.  
  2048. <:#226,9071>5    72    27    9    1000    1342177280    "static"    "îÄ(&M) :"    0 
  2049.  
  2050. <:#226,9071>5    88    23    9    1001    1342177280    "static"    "öN(&Y) :"    0 
  2051.  
  2052. <:#226,9071>36    71    52    40    9500    1344339979    "combobox"    ""    0 
  2053.  
  2054. <:#226,9071>36    86    52    40    9501    1344339979    "combobox"    ""    0 
  2055.  
  2056. <:#452,9071>5    108    101    12    20    1342242819    "button"    "ïLöOô·é≡è▄é▐(&I)"    0 
  2057.  
  2058. <:#226,9071>147    4    40    13    1    1342242817    "button"    "OK"    0 
  2059.  
  2060. <:#226,9071>147    21    40    14    2    1342242816    "button"    "╖¼▌╛┘"    0 
  2061.  
  2062. <:#226,9071>5    24    6    9    1003    1342177280    "static"    "1."    0 
  2063.  
  2064. <:#452,9071>15    24    125    9    1004    1342177280    "static"    "╡░╢▐┼▓╗▐░é≡ïNô«é╡é─é¡é╛é│éóüB"    0 
  2065.  
  2066. <:#226,9071>5    33    6    9    1005    1342177280    "static"    "2."    0 
  2067.  
  2068. <:#452,9071>15    33    130    16    1006    1342177280    "static"    "╢┌▌└▐░é≡ì∞ɼé╖éΘé╜é▀é╠╡░╢▐┼▓╗▐░é╠╠º▓┘é≡èJéóé─é¡é╛é│éóüB"    0 
  2069.  
  2070. <:#226,9071>5    49    6    9    1007    1342177280    "static"    "3."    0 
  2071.  
  2072. <:#452,9071>15    50    147    16    1008    1342177280    "static"    "é▒é╠└▐▓▒█╕▐╬▐»╕╜é┼ <<îÄ(M)<;> 
  2073. é╞ <<öN(Y)<;> é≡ÄwÆΦé╡é─é¡é╛é│éóüB"    0 
  2074.  
  2075. <:#226,9071>END DIALOG
  2076.  
  2077. <:#226,9071>
  2078.  
  2079. @Function@<:#226,9071>function createdlgfont()
  2080.  
  2081. <:#226,9071>rmac = getrunningmacrofile$()
  2082.  
  2083. <:#284,9071>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, <:f240,BArial,255,0,0>"Helv"<:f>)
  2084.  
  2085. <:#226,9071>if hfont <;> 1
  2086.  
  2087. <:#226,9071>    AllocGlobalVar("{rmac}hfont", 1)
  2088.  
  2089. <:#226,9071>    SetGlobalVar("{rmac}hfont", hFont)
  2090.  
  2091. <:#226,9071>    Return hfont
  2092.  
  2093. <:#226,9071>endif
  2094.  
  2095. <:#226,9071>End Function
  2096.  
  2097. <:#226,9071>
  2098.  
  2099. <:#226,9071>
  2100.  
  2101. @Function@<:#226,9071>function deletefont()
  2102.  
  2103. <:#226,9071>rmac = getrunningmacrofile$()
  2104.  
  2105. <:#226,9071>AllocGlobalVar("{rmac}hfont", 1)
  2106.  
  2107. <:#226,9071>hfont = getglobalvar$("{rmac}hfont")
  2108.  
  2109. <:#226,9071>if hfont <;> 1
  2110.  
  2111. <:#226,9071>    deleteobject(hfont)
  2112.  
  2113. <:#226,9071>    freeglobalvar("{rmac}hfont")
  2114.  
  2115. <:#226,9071>endif
  2116.  
  2117. <:#226,9071>end function
  2118.  
  2119. <:#226,9071>
  2120.  
  2121. <:#226,9071>
  2122.  
  2123. @Function@<:#226,9071>function setfont(hdlg, id)
  2124.  
  2125. <:#226,9071>rmac = getrunningmacrofile$()
  2126.  
  2127. <:#226,9071>AllocGlobalVar("{rmac}hfont", 1)
  2128.  
  2129. <:#226,9071>hfont = getglobalvar$("{rmac}hfont")
  2130.  
  2131. <:#226,9071>if hfont << 1
  2132.  
  2133. <:#226,9071>    if createdlgfont() << 1
  2134.  
  2135. <:#226,9071>        return 0
  2136.  
  2137. <:#226,9071>    endif
  2138.  
  2139. <:#226,9071>endif
  2140.  
  2141. <:#226,9071>hfont = getglobalvar$("{rmac}hfont")
  2142.  
  2143. <:#226,9071>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  2144.  
  2145. <:#226,9071>end function
  2146.  
  2147. <:#226,9071>
  2148.  
  2149. @Function@<:#226,9071>function delfile(filename)
  2150.  
  2151. <:#226,9071>fh = fopen(filename, "r")
  2152.  
  2153. <:#226,9071>if fh <<<;> 0
  2154.  
  2155. <:#226,9071>    fseek(fh, 0, 2)
  2156.  
  2157. <:#226,9071>    stat = ftell(fh)
  2158.  
  2159. <:#226,9071>    fclose(fh)
  2160.  
  2161. <:#226,9071>    if stat <<<;> 0
  2162.  
  2163. <:#226,9071>        dosdelfile(filename)
  2164.  
  2165. <:#226,9071>    endif
  2166.  
  2167. <:#226,9071>endif
  2168.  
  2169. <:#226,9071>end function
  2170.  
  2171. <:#226,9071>
  2172.  
  2173. <:#226,9071>
  2174.  
  2175. @Function@<:I0,0,0,0><:S+-1><:#226,9071>Function FindAndReplace(String, Findwhat, Replacewith)
  2176.  
  2177. <:#226,9071>DefStr Location;
  2178.  
  2179. <:#226,9071>OffSet = 1
  2180.  
  2181. <:#226,9071>While 0 != Assign(&Location, KInstr(OffSet, String, FindWhat))
  2182.  
  2183. <:#226,9071>    BeforeLocation = Left$(String, Location - 1)
  2184.  
  2185. <:#226,9071>    AfterLocation = Right$(String, Len(String) - Location);
  2186.  
  2187. <:#226,9071>    *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)
  2188.  
  2189. <:#226,9071>Wend
  2190.  
  2191. <+@><:I0,0,0,0><:S+-1><:#226,9071>End Function
  2192.  
  2193. >
  2194.  
  2195. [Embedded]
  2196. 00050391
  2197. >
  2198. [macsum] 21
  2199. orgcal 0 0 27 40
  2200. findday 3198 1 2 199
  2201. findday_ann 3420 1 2 216
  2202. startcal 3646 2 5 233
  2203. getorgdata 3837 2 13 248
  2204. readorganniversary 6870 3 15 388
  2205. readorgdates 8712 5 17 479
  2206. helpme 10743 0 1 586
  2207. datenum2datestr 10896 1 1 591
  2208. datestr2datenum 11643 1 1 621
  2209. AutoCal 12390 2 16 652
  2210. BuildDate 16127 3 7 831
  2211. FillCalendar 16391 2 13 852
  2212. CheckLeap 18699 3 10 949
  2213. initdlg 19023 3 2 976
  2214. Heymon 19175 0 -1 985
  2215. createdlgfont 20076 0 3 1005
  2216. deletefont 20292 0 3 1016
  2217. setfont 20464 2 3 1027
  2218. delfile 20734 1 3 1040
  2219. FindAndReplace 20907 3 5 1053
  2220. [macse]
  2221. 14 orgcal
  2222. 0 1050
  2223. 13
  2224. 5 1
  2225. 18 0
  2226. 11 00000170
  2227. 5 1
  2228. 21 1 [X]
  2229. 0 1051 &1
  2230. 5 1
  2231. 22 1
  2232. 7 "(ÉVïKò╢Åæ)"
  2233. 18 0
  2234. 0 34 0 0
  2235. 13
  2236. 5 0
  2237. 18 0
  2238. 1 1
  2239. 11 00000170
  2240. 0 1029 "(ÉVïKò╢Åæ)"
  2241. 0 32 1
  2242. 7 "JCALORG.STY"
  2243. 8 2
  2244. 0 1050
  2245. 13
  2246. 5 0
  2247. 18 3
  2248. 11 00000434
  2249. 0 279 3
  2250. 13
  2251. 6 2
  2252. 18 1
  2253. 0 279 15
  2254. 13
  2255. 5 1
  2256. 18 0
  2257. 1 2
  2258. 11 00000421
  2259. 2 101 1 "{2}" 1 1024
  2260. 13
  2261. 5 1
  2262. 18 1
  2263. 11 00000409
  2264. 0 3 "╜└▓┘╝░─é¬î⌐é┬é⌐éΦé▄é╣é± {2}." "▒╨╠▀█"
  2265. 5 0
  2266. 15
  2267. 9
  2268. 5 0
  2269. 15
  2270. 9
  2271. 10 00000552
  2272. 2 101 1 "{2}" 1 1024
  2273. 13
  2274. 5 1
  2275. 18 1
  2276. 11 00000540
  2277. 0 3 "╜└▓┘╝░─é¬î⌐é┬é⌐éΦé▄é╣é± {2}." "▒╨╠▀█"
  2278. 5 0
  2279. 15
  2280. 9
  2281. 5 0
  2282. 15
  2283. 9
  2284. 0 271 "TitleName" 1
  2285. 0 286 "intl" "sShortDate" "win.ini"
  2286. 13
  2287. 8 5
  2288. 6 5
  2289. 7 "yy/MM/dd"
  2290. 18 1
  2291. 11 00000766
  2292. 0 3 "║▌─█░┘╩▀╚┘é╠èeìææ╬ë₧é┼üAô·òté╠ÆZéóî`Ä«é≡ô·û{ùpé╠Åëè·Å≤æ╘é╔é╡é─é¡é╛é│éó"
  2293. 0 266 "TitleName"
  2294. 5 0
  2295. 15
  2296. 9
  2297. 16 autocal &3 &4
  2298. 13
  2299. 5 1
  2300. 18 1
  2301. 11 00000843
  2302. 0 266 "TitleName"
  2303. 5 0
  2304. 15
  2305. 9
  2306. 2 140 1 "" "" "" "" "" "" "" 1
  2307. 0 1301 &6 &7 &8 &9
  2308. 6 6
  2309. 5 10
  2310. 18 0
  2311. 11 00000967
  2312. 0 6 "[40][40][4136]"
  2313. 0 291 6
  2314. 2 628 1 0
  2315. 0 286 "OrgCal" "Calendar" "amipro2.ini"
  2316. 13
  2317. 8 10
  2318. 6 10
  2319. 7 ""
  2320. 18 0
  2321. 11 00001117
  2322. 7 "└▐▓▒╪░"
  2323. 8 10
  2324. 0 287 "OrgCal" "Calendar" "└▐▓▒╪░" "amipro2.ini"
  2325. 0 286 "OrgCal" "Anniversary" "amipro2.ini"
  2326. 13
  2327. 8 11
  2328. 6 11
  2329. 7 ""
  2330. 18 0
  2331. 11 00001273
  2332. 7 "ïLöOô·"
  2333. 8 11
  2334. 0 287 "OrgCal" "Anniversary" "ïLöOô·" "amipro2.ini"
  2335. 0 1288
  2336. 13
  2337. 8 12
  2338. 0 6 "[16420][40][40]"
  2339. 0 789 "╡░╢▐┼▓╗▐░é╠├▐░└é╠ĵô╛Æå..."
  2340. 16 getorgdata "{10}" "{11}"
  2341. 13
  2342. 5 1
  2343. 18 1
  2344. 11 00001537
  2345. 0 789 ""
  2346. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  2347. 13
  2348. 8 13
  2349. 0 284 "user,ShowWindow,HHH" "{13}" 1
  2350. 0 266 "TitleName"
  2351. 5 0
  2352. 15
  2353. 9
  2354. 0 789 ""
  2355. 0 274 001
  2356. 5 1
  2357. 21 14 [X]
  2358. 5 1
  2359. 21 15 [X]
  2360. 5 1
  2361. 21 16 [X]
  2362. 5 1
  2363. 21 17 [X]
  2364. 5 1
  2365. 21 18 [X]
  2366. 16 datestr2datenum "{4}"
  2367. 13
  2368. 8 19
  2369. 0 789 "╡░╢▐┼▓╗▐░é╠├▐░└é╠ô╟é▌ì₧é▌Æå..."
  2370. 16 readorgdates &14 &16 &18 "{3}" "{19}"
  2371. 13
  2372. 8 20
  2373. 0 789 ""
  2374. 6 20
  2375. 5 0
  2376. 18 0
  2377. 11 00001819
  2378. 10 00002289
  2379. 5 1
  2380. 8 21
  2381. 16 findday "{21}"
  2382. 5 1
  2383. 8 22
  2384. 6 20
  2385. 6 22
  2386. 18 2
  2387. 12 00001939
  2388. 10 00002289
  2389. 5 1
  2390. 6 22
  2391. 3 0
  2392. 8 22
  2393. 10 00001860
  2394. 6 22
  2395. 22 14
  2396. 8 23
  2397. 6 23
  2398. 6 21
  2399. 18 1
  2400. 11 00002094
  2401. 0 6 "[9][38]"
  2402. 16 findday "{23}"
  2403. 13
  2404. 8 21
  2405. 6 21
  2406. 5 0
  2407. 18 0
  2408. 11 00002094
  2409. 0 266 "TitleName"
  2410. 5 0
  2411. 15
  2412. 9
  2413. 6 22
  2414. 22 18
  2415. 8 24
  2416. 6 22
  2417. 22 16
  2418. 8 25
  2419. 2 323 1 "ôⁿù═"
  2420. 2 254 1
  2421. 0 6 "{24}"
  2422. 2 254 1
  2423. 0 138 1 "{25}" "    "
  2424. 13
  2425. 5 0
  2426. 18 3
  2427. 11 00002259
  2428. 16 findandreplace &25 "    " "   "
  2429. 0 6 " {25}[13]"
  2430. 10 00001904
  2431. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  2432. 13
  2433. 5 1
  2434. 18 1
  2435. 11 00002376
  2436. 10 00002960
  2437. 0 6 "[16420][40][40]"
  2438. 0 789 "╡░╢▐┼▓╗▐░é╠ïLöOô·é╠├▐░└é≡ô╟é▌ì₧é▌Æå..."
  2439. 16 readorganniversary &15 &17 "{19}"
  2440. 13
  2441. 8 20
  2442. 0 789 ""
  2443. 6 20
  2444. 5 0
  2445. 18 0
  2446. 11 00002548
  2447. 10 00002960
  2448. 5 1
  2449. 8 21
  2450. 16 findday_ann "{21}"
  2451. 5 1
  2452. 8 22
  2453. 6 20
  2454. 6 22
  2455. 18 2
  2456. 12 00002672
  2457. 10 00002960
  2458. 5 1
  2459. 6 22
  2460. 3 0
  2461. 8 22
  2462. 10 00002593
  2463. 6 22
  2464. 22 15
  2465. 8 23
  2466. 6 23
  2467. 6 21
  2468. 18 1
  2469. 11 00002831
  2470. 0 6 "[9][38]"
  2471. 16 findday_ann "{23}"
  2472. 13
  2473. 8 21
  2474. 6 21
  2475. 5 0
  2476. 18 0
  2477. 11 00002831
  2478. 0 266 "TitleName"
  2479. 5 0
  2480. 15
  2481. 9
  2482. 6 22
  2483. 22 17
  2484. 8 25
  2485. 0 138 1 "{25}" "    "
  2486. 13
  2487. 5 0
  2488. 18 3
  2489. 11 00002931
  2490. 16 findandreplace &25 "    " "   "
  2491. 0 6 "{25}[13]"
  2492. 10 00002637
  2493. 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
  2494. 13
  2495. 16 delfile [X]
  2496. 0 286 "OrgCal" "CalendarFile" "amipro2.ini"
  2497. 13
  2498. 16 delfile [X]
  2499. 0 274 001
  2500. 0 3 "╡░╢▐┼▓╗▐░é╠├▐░└é≡Ägé┴é╜╢┌▌└▐░é¬ì∞ɼé│éΩé▄é╡é╜üI" "▒╨╠▀█"
  2501. 0 266 "TitleName"
  2502. 6 0
  2503. 15
  2504. 9
  2505. 14 findday
  2506. 0 32 1
  2507. 5 1
  2508. 11 00000210
  2509. 0 23
  2510. 13
  2511. 8 2
  2512. 6 2
  2513. 6 0
  2514. 18 0
  2515. 11 00000106
  2516. 0 6 "[40]"
  2517. 6 2
  2518. 15
  2519. 9
  2520. 0 6 "[9]"
  2521. 0 29
  2522. 13
  2523. 5 129
  2524. 18 1
  2525. 11 00000197
  2526. 0 3 "æ▒ìsé┼é½é▄é╣é±üB" "▒╨╠▀█"
  2527. 5 0
  2528. 15
  2529. 9
  2530. 10 00000020
  2531. 6 1
  2532. 15
  2533. 9
  2534. 14 findday_ann
  2535. 0 32 1
  2536. 5 1
  2537. 11 00000214
  2538. 0 23
  2539. 13
  2540. 8 2
  2541. 6 2
  2542. 6 0
  2543. 18 0
  2544. 11 00000110
  2545. 0 6 "[37]"
  2546. 6 2
  2547. 15
  2548. 9
  2549. 0 6 "[9]"
  2550. 0 29
  2551. 13
  2552. 5 129
  2553. 18 1
  2554. 11 00000201
  2555. 0 3 "æ▒ìsé┼é½é▄é╣é±üB" "▒╨╠▀█"
  2556. 5 0
  2557. 15
  2558. 9
  2559. 10 00000024
  2560. 6 1
  2561. 15
  2562. 9
  2563. 14 startcal
  2564. 0 32 1
  2565. 0 1301 &3 &4 &5 &6
  2566. 6 3
  2567. 5 0
  2568. 18 0
  2569. 11 00000082
  2570. 5 0
  2571. 15
  2572. 9
  2573. 0 6 "[16420]"
  2574. 0 23
  2575. 13
  2576. 28 0
  2577. 0 6 "[9]"
  2578. 0 23
  2579. 13
  2580. 28 1
  2581. 0 6 "[40][40][36][36][9]"
  2582. 5 1
  2583. 15
  2584. 9
  2585. 6 2
  2586. 15
  2587. 9
  2588. 14 getorgdata
  2589. 0 32 1
  2590. 20 00002933
  2591. 19 00002933
  2592. 5 80
  2593. 8 3
  2594. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  2595. 13
  2596. 8 5
  2597. 0 284 "user,IsIconic,HH" "{5}"
  2598. 13
  2599. 11 00000185
  2600. 0 1036 "{5}" 274 61728 0
  2601. 0 284 "user,ShowWindow,HHH" "{5}" 0
  2602. 0 284 "user,GetWindowText,HHCH" "{5}" &6 50
  2603. 0 20 "{6}" 1 "[["
  2604. 13
  2605. 8 6
  2606. 0 20 "{6}" 1 "-"
  2607. 13
  2608. 8 6
  2609. 0 134 "{6}"
  2610. 13
  2611. 5 1
  2612. 3 1
  2613. 0 133 "{6}" 1 [X]
  2614. 13
  2615. 8 6
  2616. 0 1288
  2617. 13
  2618. 8 7
  2619. 0 807 "{7}" 1
  2620. 13
  2621. 7 "\"
  2622. 18 1
  2623. 11 00000464
  2624. 0 16 "{7}" "\"
  2625. 13
  2626. 8 7
  2627. 0 772
  2628. 13
  2629. 0 807 [X] 7
  2630. 13
  2631. 8 8
  2632. 7 "{7}~{8}.tmp"
  2633. 8 9
  2634. 0 1038 "{9}" 0
  2635. 0 38 "{6}"
  2636. 0 264 "TitleName" "{6}"
  2637. 0 284 "user,EnableHardwareInput,AA" 0
  2638. 5 1010
  2639. 8 10
  2640. 5 0
  2641. 8 11
  2642. 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{10}" "{11}"
  2643. 0 274 001
  2644. 0 284 "user,GetActiveWindow,H"
  2645. 13
  2646. 8 12
  2647. 0 36 "[16420]"
  2648. 0 274 002
  2649. 5 1
  2650. 8 13
  2651. 5 20
  2652. 6 13
  2653. 18 2
  2654. 12 00000862
  2655. 10 00001052
  2656. 5 1
  2657. 6 13
  2658. 3 0
  2659. 8 13
  2660. 10 00000783
  2661. 0 284 "user,GetActiveWindow,H"
  2662. 13
  2663. 0 44 [X] 301
  2664. 13
  2665. 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
  2666. 0 808 3 "{4}" "{0}"
  2667. 13
  2668. 5 1
  2669. 18 3
  2670. 11 00001026
  2671. 10 00001113
  2672. 0 36 "[40]"
  2673. 10 00000827
  2674. 0 789 ""
  2675. 0 284 "user,EnableHardwareInput,AA" 1
  2676. 5 0
  2677. 15
  2678. 9
  2679. 0 287 "OrgCal" "CalendarFile" "{9}" "amipro2.ini"
  2680. 0 36 "[8271][8276]w[8262]"
  2681. 0 274 001
  2682. 0 284 "user,GetActiveWindow,H"
  2683. 13
  2684. 0 42 [X] 307
  2685. 13
  2686. 5 1
  2687. 18 1
  2688. 11 00001291
  2689. 0 36 " "
  2690. 0 36 "[13]"
  2691. 0 36 "[8261]a[9][20566][13][8269][13]"
  2692. 0 284 "user,GetActiveWindow,H"
  2693. 13
  2694. 8 12
  2695. 0 274 002
  2696. 5 1
  2697. 11 00001653
  2698. 0 284 "user,GetActiveWindow,H"
  2699. 13
  2700. 0 284 "user,GetWindowText,HHCH" [X] &14 50
  2701. 0 265 "TitleName"
  2702. 13
  2703. 8 6
  2704. 6 14
  2705. 6 6
  2706. 18 0
  2707. 11 00001579
  2708. 0 36 "[27]"
  2709. 10 00001653
  2710. 0 274 010
  2711. 6 14
  2712. 7 "Ä└ìsÆå"
  2713. 18 1
  2714. 11 00001640
  2715. 10 00001653
  2716. 10 00001397
  2717. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  2718. 13
  2719. 5 1
  2720. 18 1
  2721. 11 00001740
  2722. 10 00002810
  2723. 0 772
  2724. 13
  2725. 0 807 [X] 7
  2726. 13
  2727. 8 8
  2728. 7 "{7}~{8}.tmp"
  2729. 8 9
  2730. 0 287 "OrgCal" "AnniversaryFile" "{9}" "amipro2.ini"
  2731. 0 1038 "{9}" 0
  2732. 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{10}" "{11}"
  2733. 0 274 001
  2734. 0 284 "user,GetActiveWindow,H"
  2735. 13
  2736. 8 12
  2737. 0 36 "[16420]"
  2738. 5 1
  2739. 8 13
  2740. 5 20
  2741. 6 13
  2742. 18 2
  2743. 12 00002080
  2744. 10 00002270
  2745. 5 1
  2746. 6 13
  2747. 3 0
  2748. 8 13
  2749. 10 00002001
  2750. 0 284 "user,GetActiveWindow,H"
  2751. 13
  2752. 0 44 [X] 301
  2753. 13
  2754. 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
  2755. 0 138 1 "{4}" "{1}"
  2756. 13
  2757. 5 1
  2758. 18 3
  2759. 11 00002244
  2760. 10 00002321
  2761. 0 36 "[40]"
  2762. 10 00002045
  2763. 0 284 "user,EnableHardwareInput,AA" 1
  2764. 5 0
  2765. 15
  2766. 9
  2767. 0 36 "[8271][8276]w[8262]"
  2768. 0 274 001
  2769. 0 284 "user,GetActiveWindow,H"
  2770. 13
  2771. 0 42 [X] 307
  2772. 13
  2773. 5 1
  2774. 18 1
  2775. 11 00002448
  2776. 0 36 " "
  2777. 0 36 "[13]"
  2778. 0 36 "[8261]a[9][20566][13][8269][13]"
  2779. 0 284 "user,GetActiveWindow,H"
  2780. 13
  2781. 8 12
  2782. 0 274 002
  2783. 5 1
  2784. 11 00002810
  2785. 0 284 "user,GetActiveWindow,H"
  2786. 13
  2787. 0 284 "user,GetWindowText,HHCH" [X] &14 50
  2788. 0 265 "TitleName"
  2789. 13
  2790. 8 6
  2791. 6 14
  2792. 6 6
  2793. 18 0
  2794. 11 00002736
  2795. 0 36 "[27]"
  2796. 10 00002810
  2797. 0 274 010
  2798. 6 14
  2799. 7 "Ä└ìsÆå"
  2800. 18 1
  2801. 11 00002797
  2802. 10 00002810
  2803. 10 00002554
  2804. 0 1030 "Lotus Organizer"
  2805. 0 284 "user,ShowWindow,HHH" "{5}" 1
  2806. 0 38 ""
  2807. 0 284 "user,EnableHardwareInput,AA" 1
  2808. 5 1
  2809. 15
  2810. 9
  2811. 0 284 "user,ShowWindow,HHH" "{5}" 1
  2812. 0 284 "user,EnableHardwareInput,AA" 1
  2813. 5 0
  2814. 15
  2815. 9
  2816. 6 2
  2817. 15
  2818. 9
  2819. 14 readorganniversary
  2820. 0 32 1
  2821. 20 00001794
  2822. 19 00001794
  2823. 5 2
  2824. 21 4 [X]
  2825. 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
  2826. 13
  2827. 8 5
  2828. 0 259 "{5}" "r"
  2829. 13
  2830. 8 6
  2831. 6 6
  2832. 5 0
  2833. 18 0
  2834. 11 00000196
  2835. 5 0
  2836. 15
  2837. 9
  2838. 0 257 "{6}"
  2839. 13
  2840. 5 -1
  2841. 18 0
  2842. 11 00000263
  2843. 0 260 "{6}"
  2844. 5 0
  2845. 15
  2846. 9
  2847. 0 260 "{6}"
  2848. 0 1290 "{5}" "*Comma:1" 0
  2849. 13
  2850. 8 7
  2851. 6 7
  2852. 5 0
  2853. 18 0
  2854. 11 00000353
  2855. 5 0
  2856. 15
  2857. 9
  2858. 0 1294 "{7}"
  2859. 13
  2860. 8 8
  2861. 6 8
  2862. 5 1
  2863. 18 5
  2864. 11 00000418
  2865. 10 00001794
  2866. 0 286 "intl" "sDate"
  2867. 13
  2868. 8 9
  2869. 6 9
  2870. 7 ""
  2871. 18 0
  2872. 11 00000491
  2873. 7 "/"
  2874. 8 9
  2875. 0 286 "intl" "sShortDate"
  2876. 13
  2877. 0 18 [X]
  2878. 13
  2879. 8 10
  2880. 6 10
  2881. 7 ""
  2882. 18 0
  2883. 11 00000593
  2884. 7 "YY/MM/DD"
  2885. 8 10
  2886. 5 1
  2887. 8 11
  2888. 5 3
  2889. 6 11
  2890. 18 2
  2891. 12 00000682
  2892. 10 00000789
  2893. 5 1
  2894. 6 11
  2895. 3 0
  2896. 8 11
  2897. 10 00000604
  2898. 0 20 "{10}" "{11}" "{9}"
  2899. 13
  2900. 8 12
  2901. 6 12
  2902. 7 "MM"
  2903. 18 0
  2904. 11 00000776
  2905. 6 11
  2906. 8 12
  2907. 10 00000789
  2908. 10 00000647
  2909. 5 1
  2910. 8 11
  2911. 5 3
  2912. 6 11
  2913. 18 2
  2914. 12 00000878
  2915. 10 00000985
  2916. 5 1
  2917. 6 11
  2918. 3 0
  2919. 8 11
  2920. 10 00000800
  2921. 0 20 "{10}" "{11}" "{9}"
  2922. 13
  2923. 8 13
  2924. 6 13
  2925. 7 "DD"
  2926. 18 0
  2927. 11 00000972
  2928. 6 11
  2929. 8 13
  2930. 10 00000985
  2931. 10 00000843
  2932. 5 1
  2933. 8 11
  2934. 5 3
  2935. 6 11
  2936. 18 2
  2937. 12 00001074
  2938. 10 00001181
  2939. 5 1
  2940. 6 11
  2941. 3 0
  2942. 8 11
  2943. 10 00000996
  2944. 0 20 "{10}" "{11}" "{9}"
  2945. 13
  2946. 8 14
  2947. 6 14
  2948. 7 "YY"
  2949. 18 0
  2950. 11 00001168
  2951. 6 11
  2952. 8 14
  2953. 10 00001181
  2954. 10 00001039
  2955. 5 1
  2956. 8 11
  2957. 5 2
  2958. 6 11
  2959. 18 2
  2960. 12 00001270
  2961. 10 00001332
  2962. 5 1
  2963. 6 11
  2964. 3 0
  2965. 8 11
  2966. 10 00001192
  2967. 0 1295 "{7}" "{11}"
  2968. 13
  2969. 8 15
  2970. 6 11
  2971. 6 15
  2972. 23 4
  2973. 10 00001235
  2974. 5 1
  2975. 8 11
  2976. 0 1293 "{7}"
  2977. 13
  2978. 5 0
  2979. 18 0
  2980. 11 00001747
  2981. 5 1
  2982. 22 4
  2983. 0 1292 "{7}" [X]
  2984. 13
  2985. 8 15
  2986. 0 20 "{15}" "{12}" "{9}"
  2987. 13
  2988. 8 16
  2989. 6 16
  2990. 6 2
  2991. 18 1
  2992. 11 00001503
  2993. 10 00001734
  2994. 0 20 "{15}" "{13}" "{9}"
  2995. 13
  2996. 8 17
  2997. 0 806 "{17}" 1
  2998. 13
  2999. 5 0
  3000. 18 0
  3001. 11 00001609
  3002. 0 807 "{17}" 1
  3003. 13
  3004. 8 17
  3005. 0 1041 &0 "{11}" "{17}"
  3006. 5 2
  3007. 22 4
  3008. 0 1292 "{7}" [X]
  3009. 13
  3010. 8 15
  3011. 0 1041 &1 "{11}" "{15}"
  3012. 0 789 "{15}"
  3013. 6 11
  3014. 5 1
  3015. 3 0
  3016. 8 11
  3017. 10 00001343
  3018. 0 1291 "{7}"
  3019. 0 789 ""
  3020. 6 11
  3021. 5 1
  3022. 3 1
  3023. 15
  3024. 9
  3025. 0 1291 "{7}"
  3026. 0 789 ""
  3027. 5 0
  3028. 15
  3029. 9
  3030. 6 3
  3031. 15
  3032. 9
  3033. 14 readorgdates
  3034. 0 32 1
  3035. 20 00001982
  3036. 19 00001982
  3037. 5 4
  3038. 8 6
  3039. 0 807 "{3}" 2
  3040. 13
  3041. 8 3
  3042. 6 6
  3043. 21 7 [X]
  3044. 0 286 "OrgCal" "CalendarFile" "amipro2.ini"
  3045. 13
  3046. 8 8
  3047. 0 259 "{8}" "r"
  3048. 13
  3049. 8 9
  3050. 6 9
  3051. 5 0
  3052. 18 0
  3053. 11 00000221
  3054. 5 0
  3055. 15
  3056. 9
  3057. 0 257 "{9}"
  3058. 13
  3059. 5 -1
  3060. 18 0
  3061. 11 00000288
  3062. 0 260 "{9}"
  3063. 5 0
  3064. 15
  3065. 9
  3066. 0 260 "{9}"
  3067. 0 1290 "{8}" "*Comma:1" 0
  3068. 13
  3069. 8 10
  3070. 6 10
  3071. 5 0
  3072. 18 0
  3073. 11 00000380
  3074. 5 0
  3075. 15
  3076. 9
  3077. 0 1294 "{10}"
  3078. 13
  3079. 8 11
  3080. 6 11
  3081. 5 1
  3082. 18 5
  3083. 11 00000448
  3084. 10 00001982
  3085. 0 286 "intl" "sDate"
  3086. 13
  3087. 8 12
  3088. 6 12
  3089. 7 ""
  3090. 18 0
  3091. 11 00000524
  3092. 7 "/"
  3093. 8 12
  3094. 0 286 "intl" "sShortDate"
  3095. 13
  3096. 0 18 [X]
  3097. 13
  3098. 8 13
  3099. 6 13
  3100. 7 ""
  3101. 18 0
  3102. 11 00000626
  3103. 7 "YY/MM/DD"
  3104. 8 13
  3105. 5 1
  3106. 8 14
  3107. 5 3
  3108. 6 14
  3109. 18 2
  3110. 12 00000715
  3111. 10 00000823
  3112. 5 1
  3113. 6 14
  3114. 3 0
  3115. 8 14
  3116. 10 00000637
  3117. 0 20 "{13}" "{14}" "{12}"
  3118. 13
  3119. 8 15
  3120. 6 15
  3121. 7 "MM"
  3122. 18 0
  3123. 11 00000810
  3124. 6 14
  3125. 8 15
  3126. 10 00000823
  3127. 10 00000680
  3128. 5 1
  3129. 8 14
  3130. 5 3
  3131. 6 14
  3132. 18 2
  3133. 12 00000912
  3134. 10 00001020
  3135. 5 1
  3136. 6 14
  3137. 3 0
  3138. 8 14
  3139. 10 00000834
  3140. 0 20 "{13}" "{14}" "{12}"
  3141. 13
  3142. 8 16
  3143. 6 16
  3144. 7 "DD"
  3145. 18 0
  3146. 11 00001007
  3147. 6 14
  3148. 8 16
  3149. 10 00001020
  3150. 10 00000877
  3151. 5 1
  3152. 8 14
  3153. 5 3
  3154. 6 14
  3155. 18 2
  3156. 12 00001109
  3157. 10 00001217
  3158. 5 1
  3159. 6 14
  3160. 3 0
  3161. 8 14
  3162. 10 00001031
  3163. 0 20 "{13}" "{14}" "{12}"
  3164. 13
  3165. 8 17
  3166. 6 17
  3167. 7 "YY"
  3168. 18 0
  3169. 11 00001204
  3170. 6 14
  3171. 8 17
  3172. 10 00001217
  3173. 10 00001074
  3174. 5 1
  3175. 8 14
  3176. 6 6
  3177. 6 14
  3178. 18 2
  3179. 12 00001306
  3180. 10 00001369
  3181. 5 1
  3182. 6 14
  3183. 3 0
  3184. 8 14
  3185. 10 00001228
  3186. 0 1295 "{10}" "{14}"
  3187. 13
  3188. 8 18
  3189. 6 14
  3190. 6 18
  3191. 23 7
  3192. 10 00001271
  3193. 5 1
  3194. 8 14
  3195. 0 1293 "{10}"
  3196. 13
  3197. 5 0
  3198. 18 0
  3199. 11 00001934
  3200. 5 1
  3201. 22 7
  3202. 0 1292 "{10}" [X]
  3203. 13
  3204. 8 18
  3205. 0 20 "{18}" "{17}" "{12}"
  3206. 13
  3207. 8 19
  3208. 6 19
  3209. 6 3
  3210. 18 1
  3211. 11 00001543
  3212. 10 00001921
  3213. 0 20 "{18}" "{15}" "{12}"
  3214. 13
  3215. 8 20
  3216. 6 20
  3217. 6 4
  3218. 18 1
  3219. 11 00001623
  3220. 10 00001921
  3221. 0 20 "{18}" "{16}" "{12}"
  3222. 13
  3223. 8 21
  3224. 0 806 "{21}" 1
  3225. 13
  3226. 5 0
  3227. 18 0
  3228. 11 00001730
  3229. 0 807 "{21}" 1
  3230. 13
  3231. 8 21
  3232. 0 1041 &0 "{14}" "{21}"
  3233. 5 2
  3234. 22 7
  3235. 0 1292 "{10}" [X]
  3236. 13
  3237. 8 18
  3238. 0 1041 &2 "{14}" "{18}"
  3239. 5 4
  3240. 22 7
  3241. 0 1292 "{10}" [X]
  3242. 13
  3243. 8 18
  3244. 0 1041 &1 "{14}" "{18}"
  3245. 0 789 "{18}"
  3246. 6 14
  3247. 5 1
  3248. 3 0
  3249. 8 14
  3250. 10 00001380
  3251. 0 1291 "{10}"
  3252. 0 789 ""
  3253. 6 14
  3254. 5 1
  3255. 3 1
  3256. 15
  3257. 9
  3258. 0 1291 "{10}"
  3259. 0 789 ""
  3260. 5 0
  3261. 15
  3262. 9
  3263. 6 5
  3264. 15
  3265. 9
  3266. 14 helpme
  3267. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  3268. 13
  3269. 0 798
  3270. 13
  3271. 0 16 [X] "HelpPack.hlp"
  3272. 13
  3273. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 140
  3274. 6 0
  3275. 15
  3276. 9
  3277. 14 datenum2datestr
  3278. 0 32 1
  3279. 5 01
  3280. 6 0
  3281. 18 0
  3282. 11 00000088
  3283. 7 "éPîÄ"
  3284. 15
  3285. 9
  3286. 10 00000735
  3287. 5 02
  3288. 6 0
  3289. 18 0
  3290. 11 00000148
  3291. 7 "éQîÄ"
  3292. 15
  3293. 9
  3294. 10 00000735
  3295. 5 03
  3296. 6 0
  3297. 18 0
  3298. 11 00000208
  3299. 7 "éRîÄ"
  3300. 15
  3301. 9
  3302. 10 00000735
  3303. 5 04
  3304. 6 0
  3305. 18 0
  3306. 11 00000268
  3307. 7 "éSîÄ"
  3308. 15
  3309. 9
  3310. 10 00000735
  3311. 5 05
  3312. 6 0
  3313. 18 0
  3314. 11 00000328
  3315. 7 "éTîÄ"
  3316. 15
  3317. 9
  3318. 10 00000735
  3319. 5 06
  3320. 6 0
  3321. 18 0
  3322. 11 00000388
  3323. 7 "éUîÄ"
  3324. 15
  3325. 9
  3326. 10 00000735
  3327. 5 07
  3328. 6 0
  3329. 18 0
  3330. 11 00000448
  3331. 7 "éVîÄ"
  3332. 15
  3333. 9
  3334. 10 00000735
  3335. 5 08
  3336. 6 0
  3337. 18 0
  3338. 11 00000508
  3339. 7 "éWîÄ"
  3340. 15
  3341. 9
  3342. 10 00000735
  3343. 5 09
  3344. 6 0
  3345. 18 0
  3346. 11 00000568
  3347. 7 "éXîÄ"
  3348. 15
  3349. 9
  3350. 10 00000735
  3351. 5 10
  3352. 6 0
  3353. 18 0
  3354. 11 00000628
  3355. 7 "10îÄ"
  3356. 15
  3357. 9
  3358. 10 00000735
  3359. 5 11
  3360. 6 0
  3361. 18 0
  3362. 11 00000688
  3363. 7 "11îÄ"
  3364. 15
  3365. 9
  3366. 10 00000735
  3367. 5 12
  3368. 6 0
  3369. 18 0
  3370. 11 00000735
  3371. 7 "12îÄ"
  3372. 15
  3373. 9
  3374. 6 1
  3375. 15
  3376. 9
  3377. 14 datestr2datenum
  3378. 0 32 1
  3379. 7 "éPîÄ"
  3380. 6 0
  3381. 18 0
  3382. 11 00000088
  3383. 5 01
  3384. 15
  3385. 9
  3386. 10 00000735
  3387. 7 "éQîÄ"
  3388. 6 0
  3389. 18 0
  3390. 11 00000148
  3391. 5 02
  3392. 15
  3393. 9
  3394. 10 00000735
  3395. 7 "éRîÄ"
  3396. 6 0
  3397. 18 0
  3398. 11 00000208
  3399. 5 03
  3400. 15
  3401. 9
  3402. 10 00000735
  3403. 7 "éSîÄ"
  3404. 6 0
  3405. 18 0
  3406. 11 00000268
  3407. 5 04
  3408. 15
  3409. 9
  3410. 10 00000735
  3411. 7 "éTîÄ"
  3412. 6 0
  3413. 18 0
  3414. 11 00000328
  3415. 5 05
  3416. 15
  3417. 9
  3418. 10 00000735
  3419. 7 "éUîÄ"
  3420. 6 0
  3421. 18 0
  3422. 11 00000388
  3423. 5 06
  3424. 15
  3425. 9
  3426. 10 00000735
  3427. 7 "éVîÄ"
  3428. 6 0
  3429. 18 0
  3430. 11 00000448
  3431. 5 07
  3432. 15
  3433. 9
  3434. 10 00000735
  3435. 7 "éWîÄ"
  3436. 6 0
  3437. 18 0
  3438. 11 00000508
  3439. 5 08
  3440. 15
  3441. 9
  3442. 10 00000735
  3443. 7 "éXîÄ"
  3444. 6 0
  3445. 18 0
  3446. 11 00000568
  3447. 5 09
  3448. 15
  3449. 9
  3450. 10 00000735
  3451. 7 "10îÄ"
  3452. 6 0
  3453. 18 0
  3454. 11 00000628
  3455. 5 10
  3456. 15
  3457. 9
  3458. 10 00000735
  3459. 7 "11îÄ"
  3460. 6 0
  3461. 18 0
  3462. 11 00000688
  3463. 5 11
  3464. 15
  3465. 9
  3466. 10 00000735
  3467. 7 "12îÄ"
  3468. 6 0
  3469. 18 0
  3470. 11 00000735
  3471. 5 12
  3472. 15
  3473. 9
  3474. 6 1
  3475. 15
  3476. 9
  3477. 14 AutoCal
  3478. 0 32 1
  3479. 0 1317
  3480. 13
  3481. 8 14
  3482. 6 14
  3483. 5 1
  3484. 18 0
  3485. 11 00000132
  3486. 0 3 "NewWave é╠è┬ï½ë║é┼é═Ä└ìsé┼é½é▄é╣é±üB" "▒╨╠▀█"
  3487. 5 0
  3488. 15
  3489. 9
  3490. 2 210 1
  3491. 2 201 1
  3492. 0 802
  3493. 13
  3494. 8 15
  3495. 0 772
  3496. 13
  3497. 0 770 [X] "u"
  3498. 13
  3499. 0 20 [X] 1 "/"
  3500. 13
  3501. 8 16
  3502. 0 772
  3503. 13
  3504. 0 770 [X] "u"
  3505. 13
  3506. 0 20 [X] 2 "/"
  3507. 13
  3508. 8 17
  3509. 16 datenum2datestr "{17}"
  3510. 13
  3511. 0 31 9500 [X]
  3512. 0 31 9501 "{16}"
  3513. 0 31 9500 "éPîÄ"
  3514. 0 31 9500 "éQîÄ"
  3515. 0 31 9500 "éRîÄ"
  3516. 0 31 9500 "éSîÄ"
  3517. 0 31 9500 "éTîÄ"
  3518. 0 31 9500 "éUîÄ"
  3519. 0 31 9500 "éVîÄ"
  3520. 0 31 9500 "éWîÄ"
  3521. 0 31 9500 "éXîÄ"
  3522. 0 31 9500 "10îÄ"
  3523. 0 31 9500 "11îÄ"
  3524. 0 31 9500 "12îÄ"
  3525. 0 31 9501 "1980"
  3526. 0 31 9501 "1981"
  3527. 0 31 9501 "1982"
  3528. 0 31 9501 "1983"
  3529. 0 31 9501 "1984"
  3530. 0 31 9501 "1985"
  3531. 0 31 9501 "1986"
  3532. 0 31 9501 "1987"
  3533. 0 31 9501 "1988"
  3534. 0 31 9501 "1989"
  3535. 0 31 9501 "1990"
  3536. 0 31 9501 "1991"
  3537. 0 31 9501 "1992"
  3538. 0 31 9501 "1993"
  3539. 0 31 9501 "1994"
  3540. 0 31 9501 "1995"
  3541. 0 31 9501 "1996"
  3542. 0 31 9501 "1997"
  3543. 0 31 9501 "1998"
  3544. 0 31 9501 "1999"
  3545. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  3546. 13
  3547. 0 31 20 [X]
  3548. 0 47 112 "{15}!helpme"
  3549. 0 26 "." "Heymon"
  3550. 13
  3551. 8 7
  3552. 6 7
  3553. 5 0
  3554. 18 0
  3555. 11 00001075
  3556. 5 0
  3557. 15
  3558. 9
  3559. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  3560. 13
  3561. 5 1
  3562. 18 5
  3563. 11 00001281
  3564. 0 284 "user,GetActiveWindow,H"
  3565. 13
  3566. 0 284 "user,PostMessage,JHHHJ" [X] 273 1 0
  3567. 0 3 "╡░╢▐┼▓╗▐░é¬ïNô«é╡é─éóé▄é╣é±üB" "▒╨╠▀█"
  3568. 5 0
  3569. 15
  3570. 9
  3571. 0 27 9500
  3572. 13
  3573. 8 3
  3574. 0 27 9501
  3575. 13
  3576. 8 4
  3577. 0 27 20
  3578. 13
  3579. 0 287 "OrgCal" "DoAnniversary" [X] "amipro2.ini"
  3580. 6 4
  3581. 5 1980
  3582. 18 5
  3583. 6 4
  3584. 5 1999
  3585. 18 3
  3586. 1 2
  3587. 11 00001541
  3588. 0 3 "öNé═ 1980 é⌐éτ 1999 é╠ö═ê═é┼ÄwÆΦé╡é─é¡é╛é│éóüB"
  3589. 0 31 9500 "{3}"
  3590. 0 31 9501 "{4}"
  3591. 10 00000167
  3592. 0 14 "{4}"
  3593. 13
  3594. 8 10
  3595. 6 10
  3596. 5 4
  3597. 18 1
  3598. 11 00001801
  3599. 0 3 "öNé═ YYYY (ùßéªé╬ '1991') é╠î`Ä«é┼ÄwÆΦé╡é─é¡é╛é│éóüB"
  3600. 0 31 9500 "{3}"
  3601. 0 31 9501 "{4}"
  3602. 10 00000167
  3603. 0 3 "öNé═ 1980 é⌐éτ 1999 é╠ö═ê═é┼ÄwÆΦé╡é─é¡é╛é│éóüB"
  3604. 0 31 9500 "{3}"
  3605. 0 31 9501 "{4}"
  3606. 10 00000167
  3607. 0 17 "{3}"
  3608. 13
  3609. 8 5
  3610. 6 5
  3611. 7 "éPîÄ"
  3612. 18 0
  3613. 11 00001966
  3614. 7 "01/01"
  3615. 8 6
  3616. 5 31
  3617. 8 9
  3618. 16 BuildDate "{3}" "{4}" "{6}"
  3619. 13
  3620. 8 8
  3621. 16 FillCalendar "{8}" "{9}"
  3622. 10 00003691
  3623. 6 5
  3624. 7 "éQîÄ"
  3625. 18 0
  3626. 11 00002140
  3627. 7 "02/01"
  3628. 8 6
  3629. 16 CheckLeap "{3}" "{4}" "{6}"
  3630. 13
  3631. 8 9
  3632. 16 BuildDate "{3}" "{4}" "{6}"
  3633. 13
  3634. 8 8
  3635. 16 FillCalendar "{8}" "{9}"
  3636. 10 00003691
  3637. 6 5
  3638. 7 "éRîÄ"
  3639. 18 0
  3640. 11 00002284
  3641. 7 "03/01"
  3642. 8 6
  3643. 5 31
  3644. 8 9
  3645. 16 BuildDate "{3}" "{4}" "{6}"
  3646. 13
  3647. 8 8
  3648. 16 FillCalendar "{8}" "{9}"
  3649. 10 00003691
  3650. 6 5
  3651. 7 "éSîÄ"
  3652. 18 0
  3653. 11 00002428
  3654. 7 "04/01"
  3655. 8 6
  3656. 5 30
  3657. 8 9
  3658. 16 BuildDate "{3}" "{4}" "{6}"
  3659. 13
  3660. 8 8
  3661. 16 FillCalendar "{8}" "{9}"
  3662. 10 00003691
  3663. 6 5
  3664. 7 "éTîÄ"
  3665. 18 0
  3666. 11 00002572
  3667. 7 "05/01"
  3668. 8 6
  3669. 5 31
  3670. 8 9
  3671. 16 BuildDate "{3}" "{4}" "{6}"
  3672. 13
  3673. 8 8
  3674. 16 FillCalendar "{8}" "{9}"
  3675. 10 00003691
  3676. 6 5
  3677. 7 "éUîÄ"
  3678. 18 0
  3679. 11 00002716
  3680. 7 "06/01"
  3681. 8 6
  3682. 5 30
  3683. 8 9
  3684. 16 BuildDate "{3}" "{4}" "{6}"
  3685. 13
  3686. 8 8
  3687. 16 FillCalendar "{8}" "{9}"
  3688. 10 00003691
  3689. 6 5
  3690. 7 "éVîÄ"
  3691. 18 0
  3692. 11 00002860
  3693. 7 "07/01"
  3694. 8 6
  3695. 5 31
  3696. 8 9
  3697. 16 BuildDate "{3}" "{4}" "{6}"
  3698. 13
  3699. 8 8
  3700. 16 FillCalendar "{8}" "{9}"
  3701. 10 00003691
  3702. 6 5
  3703. 7 "éWîÄ"
  3704. 18 0
  3705. 11 00003004
  3706. 7 "08/01"
  3707. 8 6
  3708. 5 31
  3709. 8 9
  3710. 16 BuildDate "{3}" "{4}" "{6}"
  3711. 13
  3712. 8 8
  3713. 16 FillCalendar "{8}" "{9}"
  3714. 10 00003691
  3715. 6 5
  3716. 7 "éXîÄ"
  3717. 18 0
  3718. 11 00003148
  3719. 7 "09/01"
  3720. 8 6
  3721. 5 30
  3722. 8 9
  3723. 16 BuildDate "{3}" "{4}" "{6}"
  3724. 13
  3725. 8 8
  3726. 16 FillCalendar "{8}" "{9}"
  3727. 10 00003691
  3728. 6 5
  3729. 7 "10îÄ"
  3730. 18 0
  3731. 11 00003292
  3732. 7 "10/01"
  3733. 8 6
  3734. 5 31
  3735. 8 9
  3736. 16 BuildDate "{3}" "{4}" "{6}"
  3737. 13
  3738. 8 8
  3739. 16 FillCalendar "{8}" "{9}"
  3740. 10 00003691
  3741. 6 5
  3742. 7 "11îÄ"
  3743. 18 0
  3744. 11 00003436
  3745. 7 "11/01"
  3746. 8 6
  3747. 5 30
  3748. 8 9
  3749. 16 BuildDate "{3}" "{4}" "{6}"
  3750. 13
  3751. 8 8
  3752. 16 FillCalendar "{8}" "{9}"
  3753. 10 00003691
  3754. 6 5
  3755. 7 "12îÄ"
  3756. 18 0
  3757. 11 00003580
  3758. 7 "12/01"
  3759. 8 6
  3760. 5 31
  3761. 8 9
  3762. 16 BuildDate "{3}" "{4}" "{6}"
  3763. 13
  3764. 8 8
  3765. 16 FillCalendar "{8}" "{9}"
  3766. 10 00003691
  3767. 0 3 "îÄé¬É│é╡é¡ÄwÆΦé│éΩé─éóé▄é╣é±üBéαéñêΩôxÄwÆΦé╡é─é¡é╛é│éóüB"
  3768. 0 31 9500 "{3}"
  3769. 0 31 9501 "{4}"
  3770. 10 00000167
  3771. 6 4
  3772. 28 0
  3773. 6 3
  3774. 28 1
  3775. 5 1
  3776. 15
  3777. 9
  3778. 6 2
  3779. 15
  3780. 9
  3781. 14 BuildDate
  3782. 0 32 1
  3783. 0 15 "{1}" 3 2
  3784. 13
  3785. 8 9
  3786. 0 16 "{9}" "/" "{2}"
  3787. 13
  3788. 8 4
  3789. 7 "90/01/01"
  3790. 8 8
  3791. 0 769 "{4}" "{8}"
  3792. 13
  3793. 8 6
  3794. 6 6
  3795. 5 86400
  3796. 4 0
  3797. 5 631224000
  3798. 3 0
  3799. 8 5
  3800. 0 770 "{5}" "f"
  3801. 13
  3802. 8 7
  3803. 0 20 "{7}" 1 " "
  3804. 13
  3805. 8 3
  3806. 0 6 "[16420]{1}[39]{0}[39]{1}"
  3807. 6 3
  3808. 15
  3809. 9
  3810. 14 FillCalendar
  3811. 0 32 1
  3812. 0 6 "[16420][40][40][39]"
  3813. 5 1
  3814. 8 3
  3815. 6 0
  3816. 7 "Sunday"
  3817. 18 0
  3818. 11 00000248
  3819. 5 1
  3820. 8 8
  3821. 5 6
  3822. 6 8
  3823. 18 2
  3824. 12 00000183
  3825. 10 00000235
  3826. 5 1
  3827. 6 8
  3828. 3 0
  3829. 8 8
  3830. 10 00000108
  3831. 0 6 "{3}[39][39]"
  3832. 6 3
  3833. 5 1
  3834. 3 0
  3835. 8 3
  3836. 10 00000150
  3837. 10 00001348
  3838. 6 0
  3839. 7 "Monday"
  3840. 18 0
  3841. 11 00000450
  3842. 0 6 "[39][39]"
  3843. 5 1
  3844. 8 8
  3845. 5 5
  3846. 6 8
  3847. 18 2
  3848. 12 00000385
  3849. 10 00000437
  3850. 5 1
  3851. 6 8
  3852. 3 0
  3853. 8 8
  3854. 10 00000310
  3855. 0 6 "{3}[39][39]"
  3856. 6 3
  3857. 5 1
  3858. 3 0
  3859. 8 3
  3860. 10 00000352
  3861. 10 00001348
  3862. 6 0
  3863. 7 "Tuesday"
  3864. 18 0
  3865. 11 00000661
  3866. 0 6 "[39][39][39][39]"
  3867. 5 1
  3868. 8 9
  3869. 5 4
  3870. 6 9
  3871. 18 2
  3872. 12 00000596
  3873. 10 00000648
  3874. 5 1
  3875. 6 9
  3876. 3 0
  3877. 8 9
  3878. 10 00000521
  3879. 0 6 "{3}[39][39]"
  3880. 6 3
  3881. 5 1
  3882. 3 0
  3883. 8 3
  3884. 10 00000563
  3885. 10 00001348
  3886. 6 0
  3887. 7 "Wednesday"
  3888. 18 0
  3889. 11 00000886
  3890. 0 6 "[39][39][39][39][39][39]"
  3891. 5 1
  3892. 8 10
  3893. 5 3
  3894. 6 10
  3895. 18 2
  3896. 12 00000821
  3897. 10 00000873
  3898. 5 1
  3899. 6 10
  3900. 3 0
  3901. 8 10
  3902. 10 00000743
  3903. 0 6 "{3}[39][39]"
  3904. 6 3
  3905. 5 1
  3906. 3 0
  3907. 8 3
  3908. 10 00000786
  3909. 10 00001348
  3910. 6 0
  3911. 7 "Thursday"
  3912. 18 0
  3913. 11 00001118
  3914. 0 6 "[39][39][39][39][39][39][39][39]"
  3915. 5 1
  3916. 8 11
  3917. 5 2
  3918. 6 11
  3919. 18 2
  3920. 12 00001053
  3921. 10 00001105
  3922. 5 1
  3923. 6 11
  3924. 3 0
  3925. 8 11
  3926. 10 00000975
  3927. 0 6 "{3}[39][39]"
  3928. 6 3
  3929. 5 1
  3930. 3 0
  3931. 8 3
  3932. 10 00001018
  3933. 10 00001348
  3934. 6 0
  3935. 7 "Friday"
  3936. 18 0
  3937. 11 00001254
  3938. 0 6 "[39][39][39][39][39][39][39][39][39][39]"
  3939. 0 6 "{3}[39][39]"
  3940. 6 3
  3941. 5 1
  3942. 3 0
  3943. 8 3
  3944. 10 00001348
  3945. 6 0
  3946. 7 "Saturday"
  3947. 18 0
  3948. 11 00001348
  3949. 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
  3950. 0 6 "{3}[39][40][39]"
  3951. 6 3
  3952. 5 1
  3953. 3 0
  3954. 8 3
  3955. 5 2
  3956. 8 4
  3957. 5 6
  3958. 6 4
  3959. 18 2
  3960. 12 00001476
  3961. 10 00002296
  3962. 5 1
  3963. 6 4
  3964. 3 0
  3965. 8 4
  3966. 10 00001401
  3967. 5 1
  3968. 8 5
  3969. 5 6
  3970. 6 5
  3971. 18 2
  3972. 12 00001561
  3973. 10 00001654
  3974. 5 1
  3975. 6 5
  3976. 3 0
  3977. 8 5
  3978. 10 00001486
  3979. 0 6 "{3}[39][39]"
  3980. 6 3
  3981. 5 1
  3982. 3 0
  3983. 8 3
  3984. 6 3
  3985. 6 1
  3986. 18 3
  3987. 11 00001641
  3988. 6 2
  3989. 15
  3990. 9
  3991. 10 00001528
  3992. 6 4
  3993. 5 7
  3994. 18 0
  3995. 6 3
  3996. 6 1
  3997. 18 5
  3998. 1 1
  3999. 11 00002167
  4000. 0 6 "{3}"
  4001. 6 3
  4002. 5 1
  4003. 3 0
  4004. 8 3
  4005. 0 6 "[39]"
  4006. 5 1
  4007. 8 6
  4008. 5 7
  4009. 6 6
  4010. 18 2
  4011. 12 00001832
  4012. 10 00002154
  4013. 5 1
  4014. 6 6
  4015. 3 0
  4016. 8 6
  4017. 10 00001757
  4018. 10 00002053
  4019. 5 1
  4020. 8 7
  4021. 5 2
  4022. 6 7
  4023. 18 2
  4024. 12 00001930
  4025. 10 00002038
  4026. 5 1
  4027. 6 7
  4028. 3 0
  4029. 8 7
  4030. 10 00001855
  4031. 5 16
  4032. 8 12
  4033. 5 0
  4034. 8 13
  4035. 5 64
  4036. 5 2
  4037. 3 0
  4038. 8 14
  4039. 2 632 1 "{12}" "{13}" "{14}" 1 64
  4040. 0 6 "[16423]"
  4041. 10 00001897
  4042. 0 6 "[16421]"
  4043. 0 6 "{3}"
  4044. 6 3
  4045. 5 1
  4046. 3 0
  4047. 8 3
  4048. 0 6 "[16423]"
  4049. 6 3
  4050. 6 1
  4051. 18 3
  4052. 11 00002141
  4053. 10 00002154
  4054. 10 00001799
  4055. 10 00002263
  4056. 6 3
  4057. 6 1
  4058. 18 0
  4059. 11 00002240
  4060. 0 6 "{3}[16420]"
  4061. 10 00002296
  4062. 10 00002263
  4063. 0 6 "{3}[39][40][39]"
  4064. 6 3
  4065. 5 1
  4066. 3 0
  4067. 8 3
  4068. 10 00001443
  4069. 6 2
  4070. 15
  4071. 9
  4072. 14 CheckLeap
  4073. 0 32 1
  4074. 0 15 "{1}" 3 2
  4075. 13
  4076. 8 9
  4077. 0 16 "{2}" "{9}"
  4078. 13
  4079. 8 4
  4080. 7 "01/01/90"
  4081. 8 8
  4082. 0 769 "{4}" "{8}"
  4083. 13
  4084. 8 6
  4085. 6 6
  4086. 5 86400
  4087. 4 0
  4088. 5 631224000
  4089. 3 0
  4090. 8 5
  4091. 6 5
  4092. 5 2419200
  4093. 3 0
  4094. 8 10
  4095. 0 770 "{10}" "a"
  4096. 13
  4097. 8 11
  4098. 0 20 "{11}" 1 "/"
  4099. 13
  4100. 8 12
  4101. 6 12
  4102. 5 3
  4103. 18 0
  4104. 11 00000301
  4105. 5 28
  4106. 8 3
  4107. 10 00000312
  4108. 5 29
  4109. 8 3
  4110. 6 3
  4111. 15
  4112. 9
  4113. 14 initdlg
  4114. 5 1002
  4115. 8 4
  4116. 5 1008
  4117. 6 4
  4118. 18 2
  4119. 12 00000103
  4120. 10 00000140
  4121. 5 1
  4122. 6 4
  4123. 3 0
  4124. 8 4
  4125. 10 00000025
  4126. 16 setfont "{0}" "{4}"
  4127. 10 00000070
  4128. 6 3
  4129. 15
  4130. 9
  4131. DIALOG Heymon
  4132. -2134900736 14 26 24 192 127 "" "" "îÄé╠╢┌▌└▐░" 
  4133. 5 5 134 17 1002 1342177280 "static" "╡░╢▐┼▓╗▐░é╠├▐░└é≡Ägé┴é─îÄé╠╢┌▌└▐░é≡ì∞ɼé╡é▄é╖üB" 0 
  4134. 5 72 27 9 1000 1342177280 "static" "îÄ(&M) :" 0 
  4135. 5 88 23 9 1001 1342177280 "static" "öN(&Y) :" 0 
  4136. 36 71 52 40 9500 1344339979 "combobox" "" 0 
  4137. 36 86 52 40 9501 1344339979 "combobox" "" 0 
  4138. 5 108 101 12 20 1342242819 "button" "ïLöOô·é≡è▄é▐(&I)" 0 
  4139. 147 4 40 13 1 1342242817 "button" "OK" 0 
  4140. 147 21 40 14 2 1342242816 "button" "╖¼▌╛┘" 0 
  4141. 5 24 6 9 1003 1342177280 "static" "1." 0 
  4142. 15 24 125 9 1004 1342177280 "static" "╡░╢▐┼▓╗▐░é≡ïNô«é╡é─é¡é╛é│éóüB" 0 
  4143. 5 33 6 9 1005 1342177280 "static" "2." 0 
  4144. 15 33 130 16 1006 1342177280 "static" "╢┌▌└▐░é≡ì∞ɼé╖éΘé╜é▀é╠╡░╢▐┼▓╗▐░é╠╠º▓┘é≡èJéóé─é¡é╛é│éóüB" 0 
  4145. 5 49 6 9 1007 1342177280 "static" "3." 0 
  4146. 15 50 147 16 1008 1342177280 "static" "é▒é╠└▐▓▒█╕▐╬▐»╕╜é┼ <îÄ(M)> é╞ <öN(Y)> é≡ÄwÆΦé╡é─é¡é╛é│éóüB" 0 
  4147. 14 createdlgfont
  4148. 0 802
  4149. 13
  4150. 8 1
  4151. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  4152. 13
  4153. 8 2
  4154. 6 2
  4155. 5 1
  4156. 18 3
  4157. 11 00000204
  4158. 0 271 "{1}hfont" 1
  4159. 0 264 "{1}hfont" "{2}"
  4160. 6 2
  4161. 15
  4162. 9
  4163. 6 0
  4164. 15
  4165. 9
  4166. 14 deletefont
  4167. 0 802
  4168. 13
  4169. 8 1
  4170. 0 271 "{1}hfont" 1
  4171. 0 265 "{1}hfont"
  4172. 13
  4173. 8 2
  4174. 6 2
  4175. 5 1
  4176. 18 3
  4177. 11 00000160
  4178. 0 284 "gdi,DeleteObject,HH" "{2}"
  4179. 0 266 "{1}hfont"
  4180. 6 0
  4181. 15
  4182. 9
  4183. 14 setfont
  4184. 0 802
  4185. 13
  4186. 8 3
  4187. 0 271 "{3}hfont" 1
  4188. 0 265 "{3}hfont"
  4189. 13
  4190. 8 4
  4191. 6 4
  4192. 5 1
  4193. 18 5
  4194. 11 00000162
  4195. 16 createdlgfont
  4196. 13
  4197. 5 1
  4198. 18 5
  4199. 11 00000162
  4200. 5 0
  4201. 15
  4202. 9
  4203. 0 265 "{3}hfont"
  4204. 13
  4205. 8 4
  4206. 0 44 "{0}" "{1}"
  4207. 13
  4208. 0 284 "user,SendMessage,JHHHJ" [X] 48 "{4}" 0
  4209. 6 2
  4210. 15
  4211. 9
  4212. 14 delfile
  4213. 0 259 "{0}" "r"
  4214. 13
  4215. 8 2
  4216. 6 2
  4217. 5 0
  4218. 18 1
  4219. 11 00000161
  4220. 0 263 "{2}" 0 2
  4221. 0 262 "{2}"
  4222. 13
  4223. 8 3
  4224. 0 260 "{2}"
  4225. 6 3
  4226. 5 0
  4227. 18 1
  4228. 11 00000161
  4229. 0 779 "{0}"
  4230. 6 1
  4231. 15
  4232. 9
  4233. 14 FindAndReplace
  4234. 5 1
  4235. 8 5
  4236. 5 0
  4237. 0 138 "{5}" "{0}" "{1}"
  4238. 13
  4239. 0 805 &4 [X]
  4240. 13
  4241. 18 1
  4242. 11 00000240
  4243. 6 4
  4244. 5 1
  4245. 3 1
  4246. 0 806 "{0}" [X]
  4247. 13
  4248. 8 6
  4249. 0 14 "{0}"
  4250. 13
  4251. 6 4
  4252. 3 1
  4253. 0 807 "{0}" [X]
  4254. 13
  4255. 8 7
  4256. 0 16 "{6}" "{2}" "{7}"
  4257. 13
  4258. 28 0
  4259. 10 00000029
  4260. 6 3
  4261. 15
  4262. 9
  4263. 00050416
  4264.